projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
remove unused files
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gnat.dg
/
loop_optimization14.adb
1
-- PR middle-end/55321
2
-- { dg-do compile }
3
-- { dg-options "-O" }
4
5
with Loop_Optimization14_Pkg; use Loop_Optimization14_Pkg;
6
7
package body Loop_Optimization14 is
8
9
procedure Finalize_Pool (Pool : in out Rec) is
10
Raised : Boolean := False;
11
begin
12
Pool.A := True;
13
14
while not Pool.B loop
15
16
begin
17
Proc (Pool.B);
18
19
exception
20
when others =>
21
if not Raised then
22
Raised := True;
23
end if;
24
end;
25
end loop;
26
27
end;
28
29
end Loop_Optimization14;