Fix a bunch of issues found in a testcase from 400.perlbench.

[oota-llvm.git] / test / FrontendAda / fat_fields.ads

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;