+2008-08-01 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gnat.dg/boolean_expr.ad[sb]: Rename to boolean_expr1.ad[sb].
+
2008-08-01 Richard Guenther <rguenther@suse.de>
PR middle-end/36997
-- { dg-do compile }
-- { dg-options "-O2" }
-package body Boolean_Expr is
+package body Boolean_Expr1 is
function Long_Float_Is_Valid (X : in Long_Float) return Boolean is
Is_Nan : constant Boolean := X /= X;
return "ERROR";
end S;
-end Boolean_Expr;
+end Boolean_Expr1;
-package Boolean_Expr is
+package Boolean_Expr1 is
function S (V : in Long_Float) return String;
-end Boolean_Expr;
+end Boolean_Expr1;