Sign in
gnu
/
gcc
/
f49e3d28be44179f07b8a06159139ce77096dda7
/
.
/
gcc
/
testsuite
/
gnat.dg
/
loop_optimization22.ads
blob: ec3ac0d08337c593a0448bb1c35ad56661940300 [
file
] [
log
] [
blame
]
package
Loop_Optimization22
is
type
Discrim_Type
(
Count
:
Positive
)
is
null
record
;
procedure
Foo
(
X
:
Discrim_Type
);
end
Loop_Optimization22
;