Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt38.adb
blob: 143f4fade19dcf0c8cbf1b802cfd4149a9b232c9 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O2 -gnatn"
}
with
Opt38_Pkg
;
use
Opt38_Pkg
;
procedure
Opt38
is
begin
Test
(-
1
);
end
;