Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
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;