diff options
| author | Duncan Sands <baldrick@free.fr> | 2008-01-03 00:17:02 +0000 |
|---|---|---|
| committer | Duncan Sands <baldrick@free.fr> | 2008-01-03 00:17:02 +0000 |
| commit | c51daccb7ec40335e819fb0b3f961353b17ea34b (patch) | |
| tree | a10c9044fbb88b77a32e3426b40bb567907fa78f /test/FrontendAda/field_order.ads | |
| parent | fabfde3ff08570a2f903068061e472d51b06e7fc (diff) | |
| download | llvm-c51daccb7ec40335e819fb0b3f961353b17ea34b.tar.gz llvm-c51daccb7ec40335e819fb0b3f961353b17ea34b.tar.bz2 llvm-c51daccb7ec40335e819fb0b3f961353b17ea34b.tar.xz | |
Test handling of records for which the fields are
not ordered by offset.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@45520 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/FrontendAda/field_order.ads')
| -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; |