c46024a.ada

来自「用于进行gcc测试」· ADA 代码 · 共 137 行

-- C46024A.ADA

--                             Grant of Unlimited Rights
--
--     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
--     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained 
--     unlimited rights in the software and documentation contained herein.
--     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making 
--     this public release, the Government intends to confer upon all 
--     recipients unlimited rights  equal to those held by the Government.  
--     These rights include rights to use, duplicate, release or disclose the 
--     released technical data and computer software in whole or in part, in 
--     any manner and for any purpose whatsoever, and to have or permit others 
--     to do so.
--
--                                    DISCLAIMER
--
--     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
--     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED 
--     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE 
--     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
--     PARTICULAR PURPOSE OF SAID MATERIAL.
--*
-- OBJECTIVE:
--     CHECK FLOATING POINT CONVERSIONS WHEN THE TARGET TYPE IS A
--     FIXED POINT TYPE, FOR DIGITS 5.

-- HISTORY:
--     JET 02/19/88  CREATED ORIGINAL TEST.

WITH REPORT; USE REPORT;

PROCEDURE C46024A IS

     TYPE FLOAT5 IS DIGITS 5;
     TYPE FIX1 IS DELTA 2#0.01# RANGE -16#20.0# .. 16#20.0#;
     TYPE FIX2 IS DELTA 2#0.0001# RANGE -16#80.0# .. 16#80.0#;
     TYPE FIX3 IS DELTA 2#0.000001# RANGE -16#200.0# .. 16#200.0#;

     F5, F5A, F5B : FLOAT5;

     GENERIC
          TYPE F IS DELTA <>;
     FUNCTION IDENTG (A : F) RETURN F;

     FUNCTION IDENTG (A : F) RETURN F IS
     BEGIN
          RETURN A + F(IDENT_INT(0));
     END IDENTG;

     FUNCTION IDENT1 IS NEW IDENTG(FIX1);
     FUNCTION IDENT2 IS NEW IDENTG(FIX2);
     FUNCTION IDENT3 IS NEW IDENTG(FIX3);

BEGIN
     TEST ("C46024A", "CHECK FLOATING POINT CONVERSIONS WHEN THE " &
                      "TARGET TYPE IS A FIXED POINT TYPE, FOR " &
                      "5-DIGIT PRECISION");

     IF FIX1(FLOAT5'(2#0.1000_0000_0000_0000_00#E-1)) /=
        IDENT1(2#0.01#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (1)");
     END IF;

     IF FIX1(FLOAT5'(-2#0.1111_1110_0000_0000_00#E5)) /=
        IDENT1(-2#1_1111.11#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (2)");
     END IF;

     IF FIX1(FLOAT5'(-2#0.1010_0111_1111_1111_11#E4)) <
        IDENT1(-2#1010.10#) OR
        FIX1(FLOAT5'(-2#0.1010_0111_1111_1111_11#E4)) >
        IDENT1(-2#1010.01#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (3)");
     END IF;

     IF FIX2(FLOAT5'(-2#0.1000_0000_0000_0000_00#E-3)) /=
        IDENT2(-2#0.0001#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (4)");
     END IF;

     IF FIX2(FLOAT5'(2#0.1111_1111_1110_0000_00#E7)) /=
        IDENT2(2#111_1111.1111#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (5)");
     END IF;

     F5 := 2#0.1010_1010_1010_1010_10#E5;
     IF FIX2(F5) < IDENT2(2#1_0101.0101#) OR
        FIX2(F5) > IDENT2(2#1_0101.0110#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (6)");
     END IF;

     IF FIX3(FLOAT5'(2#0.1000_0000_0000_0000_00#E-5)) /=
        IDENT3(2#0.000001#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (7)");
     END IF;

     IF FIX3(FLOAT5'(-2#0.1111_1111_1111_1110_00#E9)) /=
        IDENT3(-2#1_1111_1111.1111_11#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (8)");
     END IF;

     F5 := -2#0.1010_1010_1010_1010_10#E8;
     IF FIX3(F5) < IDENT3(-2#1010_1010.1010_11#) OR
        FIX3(F5) > IDENT3(-2#1010_1010.1010_10#) THEN
          FAILED ("INCORRECT RESULT FROM CONVERSION (9)");
     END IF;

     F5A := 2#0.1010_1010_1010_1010_10#E4;
     F5B := 2#0.1010_1010_1010_1010_10#E5;

     IF FIX1(F5A) = IDENT1(2#1010.11#)   AND
        FIX1(-F5A) = IDENT1(-2#1010.11#) AND
        FIX1(F5B) = IDENT1(2#1_0101.01#) AND
        FIX1(-F5B) = IDENT1(-2#1_0101.01#) THEN
          COMMENT ("CONVERSION ROUNDS TO NEAREST");
     ELSIF FIX1(F5A) = IDENT1(2#1010.10#) AND
           FIX1(-F5B) = IDENT1(-2#1_0101.10#) THEN
          COMMENT ("CONVERSION ROUNDS TO LEAST FIXED-POINT VALUE");
     ELSIF FIX1(F5B) = IDENT1(2#1_0101.10#) AND
           FIX1(-F5A) = IDENT1(-2#1010.10#) THEN
          COMMENT ("CONVERSION ROUNDS TO GREATEST FIXED-POINT VALUE");
     ELSIF FIX1(F5A) = IDENT1(2#1010.10#) AND
           FIX1(-F5A) = IDENT1(-2#1010.10#) THEN
          COMMENT ("CONVERSION ROUNDS TOWARD ZERO");
     ELSIF FIX1(F5B) = IDENT1(2#1_0101.10#) AND
           FIX1(-F5B) = IDENT1(-2#1_0101.10#) THEN
          COMMENT ("CONVERSION ROUNDS AWAY FROM ZERO");
     ELSE
          COMMENT ("UNABLE TO DETERMINE CONVERSION PATTERN");
     END IF;

     RESULT;

END C46024A;