Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
loop_optimization14.ads
blob: ee99405069ee0e3845f7b333ee836b9e30116d5f [
file
] [
log
] [
blame
]
package
Loop_Optimization14
is
type
Rec
is
record
A
:
Boolean
;
pragma
Atomic
(
A
);
B
:
Boolean
;
end
record
;
procedure
Finalize_Pool
(
Pool
:
in
out
Rec
);
end
Loop_Optimization14
;