Subversion Repositories openrisc

-- 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;