aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/specs/compile_time1.ads
blob: f28d4e623d73a003c72db92392594864a1f9592a (plain)
1
2
3
4
5
6
7
8
9
-- { dg-do compile }

with Compile_Time1_Pkg; use Compile_Time1_Pkg;

package Compile_Time1 is

  pragma Compile_Time_Error (Rec'Size /= Integer'Size, "wrong record size");

end Compile_Time1;