blob: 9b2b37c20db0024365581609cc7452c4b5769a71 (
plain)
1
2
3
4
5
6
7
|
-- RUN: %llvmgcc -S %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;
|