* gcc.dg/stack-check-5.c: Skip with -fstack-protector.
[official-gcc.git] / gcc / testsuite / gnat.dg / max_align.adb
blob702bbaca4492e8d59560d5fcf38d95dfc07ee6c7
1 -- { dg-do compile }
3 procedure Max_Align is
4 type Block is record
5 X : Integer;
6 end record;
7 for Block'Alignment use Standard'Maximum_Alignment;
9 type Block_Access is access Block;
10 Ptr : Block_Access := new Block;
11 begin
12 null;
13 end;