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 | 331131b0c17839c8ded1fd4897e9d1d6ebff5438 (patch) | |
| tree | f45d839ca731324134f54845ae2d4ade3fe2dada | |
| parent | 3267741e4f4a69d836f41d1da9749b1e90d16db9 (diff) | |
| download | external_llvm-331131b0c17839c8ded1fd4897e9d1d6ebff5438.zip external_llvm-331131b0c17839c8ded1fd4897e9d1d6ebff5438.tar.gz external_llvm-331131b0c17839c8ded1fd4897e9d1d6ebff5438.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
| -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; |