Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt74.adb
blob: 8eacaa5b49e2de4889abc5c3773bcf5f0927e072 [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-O2"
}
with
Opt74_Pkg
;
use
Opt74_Pkg
;
procedure
Opt74
is
Index
,
Found
:
Integer
;
begin
Proc
(
Found
,
Index
);
if
Found
=
1
then
raise
Program_Error
;
end
if
;
end
;