Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / expr_func_main.adb
blob2ea5b4aa76d5af6ecd64545061fee0cfbe7f815e
1 -- { dg-do compile }
3 with Expr_Func_Pkg; use Expr_Func_Pkg;
5 procedure Expr_Func_Main is
6 Val : Boolean := Expr_Func (456);
7 begin
8 null;
9 end Expr_Func_Main;