re PR c++/84691 (internal compiler error: in poplevel_class, at cp/name-lookup.c...
[official-gcc.git] / gcc / testsuite / gnat.dg / specs / gnati.ads
blob72eff6e2ecdefde1e65f102fd7f35e159383bba9
1 -- { dg-do compile }
2 -- { dg-options "-gnatI" }
4 package gnati is
5 type j is range 1 .. 50;
6 for j'size use 1;
7 type n is new integer;
8 for n'alignment use -99;
9 type e is (a, b);
10 for e use (1, 1);
11 type r is record x : integer; end record;
12 for r use record x at 0 range 0 .. 0; end record;
13 end gnati;