diff options
author | Duncan Sands <baldrick@free.fr> | 2008-01-15 19:55:41 +0000 |
---|---|---|
committer | Duncan Sands <baldrick@free.fr> | 2008-01-15 19:55:41 +0000 |
commit | fdd75125b87f335ced93c0d9d88d0b3045fe9ecc (patch) | |
tree | f45d839ca731324134f54845ae2d4ade3fe2dada /test/FrontendAda | |
parent | e14af4fe741a15b37cd1f00b67d65e63aec8feef (diff) | |
download | external_llvm-fdd75125b87f335ced93c0d9d88d0b3045fe9ecc.zip external_llvm-fdd75125b87f335ced93c0d9d88d0b3045fe9ecc.tar.gz external_llvm-fdd75125b87f335ced93c0d9d88d0b3045fe9ecc.tar.bz2 |
Testcase for gimplify_expr crash caused by an
unexpected placeholder_expr.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@46006 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'test/FrontendAda')
-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 0000000..f33c9a5 --- /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; |