Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
case_optimization3.ads
blob: 3e3c769c2f5f76d9eb86c3ee57189fe964c6ac87 [
file
] [
log
] [
blame
]
package
Case_Optimization3
is
type T_UINT32
is
range
0
..
(
2
**
32
)
-
1
;
for
T_UINT32
'Size use 32;
subtype T_RANGE is T_UINT32 range 0 .. 7;
procedure Proc (Val : T_RANGE);
end Case_Optimization3;