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;