mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-06-11 21:38:19 +00:00
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
This commit is contained in:
12
test/FrontendAda/placeholder.adb
Normal file
12
test/FrontendAda/placeholder.adb
Normal file
@ -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;
|
Reference in New Issue
Block a user