Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
expr_func_pkg.adb
blob: de519aecc48a2510c9ed66b68056018d530f3c9f [
file
] [
log
] [
blame
]
package
body
Expr_Func_Pkg
is
function
Func
(
Val
:
Integer
)
return
Boolean
is
begin
Error
;
--
{
dg
-
error
"\"Error\" is undefined"
}
return
Val
=
123
;
end
Func
;
end
Expr_Func_Pkg
;