diff options
| -rw-r--r-- | test/FrontendAda/placeholder.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/FrontendAda/placeholder.adb b/test/FrontendAda/placeholder.adb new file mode 100644 index 0000000000..f33c9a5ab8 --- /dev/null +++ b/test/FrontendAda/placeholder.adb @@ -0,0 +1,12 @@ +-- RUN: %llvmgcc -c %s +procedure Placeholder is + subtype Bounded is Integer range 1 .. 5; + type Vector is array (Bounded range <>) of Integer; + type Interval (Length : Bounded := 1) is record + Points : Vector (1 .. Length); + end record; + An_Interval : Interval := (Length => 1, Points => (1 => 1)); + generic The_Interval : Interval; package R is end; + package body R is end; + package S is new R (An_Interval); +begin null; end; |