repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
RISC-V: Add support for riscv-*-*.
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
opt36.adb
blob
137db768319b55b5306411ae6ad5d9b94c10b0f1
1
-- { dg-do run }
2
-- { dg-options "-O2" }
3
4
with
Opt35_Pkg
;
use
Opt35_Pkg
;
5
6
procedure
Opt36
is
7
I
:
Integer
:= -
1
;
8
N
:
Natural
:=
0
;
9
begin
10
loop
11
begin
12
I
:=
I
+
1
;
13
I
:=
I
+
F
(
0
);
14
exception
15
when
E
=>
N
:=
N
+
1
;
16
end
;
17
exit when
I
=
1
;
18
end loop
;
19
20
if
N
/=
2
or
I
=
0
then
21
raise
Program_Error
;
22
end if
;
23
end
;