llvm-6502/test/AdaFrontend/fat_fields.ads
2007-03-05 08:34:35 +00:00

7 lines
153 B
Ada

package Fat_Fields is
pragma Elaborate_Body;
type A is array (Positive range <>) of Boolean;
type A_Ptr is access A;
P : A_Ptr := null;
end;