mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-08-17 05:29:24 +00:00
Test that TREE_CONSTANT is being set correctly.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@36645 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
parent
00d4bc0aa8
commit
d60a18dfbc
9
test/FrontendAda/unc_constructor.adb
Normal file
9
test/FrontendAda/unc_constructor.adb
Normal file
@ -0,0 +1,9 @@
|
||||
-- RUN: %llvmgcc -c %s -o /dev/null
|
||||
package body Unc_Constructor is
|
||||
procedure P (X : A) is
|
||||
begin
|
||||
if X = A0 then
|
||||
null;
|
||||
end if;
|
||||
end;
|
||||
end;
|
8
test/FrontendAda/unc_constructor.ads
Normal file
8
test/FrontendAda/unc_constructor.ads
Normal file
@ -0,0 +1,8 @@
|
||||
package Unc_Constructor is
|
||||
type C is null record;
|
||||
type A is array (Positive range <>) of C;
|
||||
A0 : constant A;
|
||||
procedure P (X : A);
|
||||
private
|
||||
A0 : aliased constant A := (1 .. 0 => (null record));
|
||||
end;
|
Loading…
Reference in New Issue
Block a user