Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
compile_time_error1_pkg.ads
blob: 92238577246f02e44bf8719ec4e83af4f3831120 [
file
] [
log
] [
blame
]
generic
type T
is
private
;
package
Compile_Time_Error1_Pkg
is
pragma
Compile_Time_Error
(
T
'Size not in 8 | 16 | 32, "type too large");
Data : T;
end Compile_Time_Error1_Pkg;