diff options
| -rw-r--r-- | test/FrontendAda/field_order.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/FrontendAda/field_order.ads b/test/FrontendAda/field_order.ads new file mode 100644 index 0000000000..b49185d6dd --- /dev/null +++ b/test/FrontendAda/field_order.ads @@ -0,0 +1,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; |