Sign in
gnu
/
gcc
/
4a0fed0c0c7241562eaa5f1a4c916b689429ad86
/
.
/
gcc
/
testsuite
/
gnat.dg
/
modular3_pkg.ads
blob: 85cf6a8bfaaf3dc3b1cf602337fdd808f2e2605e [
file
] [
log
] [
blame
]
package
Modular3_Pkg
is
type
Int16_T
is
range
-
32768
..
32767
;
for
Int16_T
'Size use 16;
for Int16_T'
Alignment
use
1
;
type
Mod16_T
is
mod
2
**
16
;
for
Mod16_T
'Size use 16;
for Mod16_T'
Alignment
use
1
;
end
Modular3_Pkg
;