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> 2008-08-01 Richard Guenther <rguenther@suse.de>
PR middle-end/36997 PR middle-end/36997
......
package Boolean_Expr is
function S (V : in Long_Float) return String;
end Boolean_Expr;
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
-- { dg-do compile } -- { dg-do compile }
-- { dg-options "-O2" } -- { 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 function Long_Float_Is_Valid (X : in Long_Float) return Boolean is
Is_Nan : constant Boolean := X /= X; Is_Nan : constant Boolean := X /= X;
...@@ -27,4 +27,4 @@ package body Boolean_Expr is ...@@ -27,4 +27,4 @@ package body Boolean_Expr is
return "ERROR"; return "ERROR";
end S; 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