Commit 769b26a6 by Eric Botcazou Committed by Eric Botcazou

* gnat.dg/boolean_expr.ad[sb]: Rename to boolean_expr1.ad[sb].

From-SVN: r138520
parent ec6fa56a
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
......
package Boolean_Expr is
function S (V : in Long_Float) return String;
end Boolean_Expr;
......@@ -4,7 +4,7 @@
-- { 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;
......@@ -27,4 +27,4 @@ package body Boolean_Expr is
return "ERROR";
end S;
end Boolean_Expr;
end Boolean_Expr1;
package Boolean_Expr1 is
function S (V : in Long_Float) return String;
end Boolean_Expr1;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment