--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/testsuite/ada/acats/tests/c4/c46024a.ada	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,136 @@
+-- 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;