release_23/test/FrontendAda/field_order.ads


1
2
3
4
5
6
7

-- RUN: %llvmgcc -c %s
package Field_Order is
   type Tagged_Type is abstract tagged null record;
   type With_Discriminant (L : Positive) is new Tagged_Type with record
      S : String (1 .. L);
   end record;
end;