mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2025-01-06 11:19:09 +00:00
Test support for arrays with non-zero first index.
llvm-svn: 35084
This commit is contained in:
parent
9c77df75ea
commit
c56601a219
6
test/AdaFrontend/array_constructor.adb
Normal file
6
test/AdaFrontend/array_constructor.adb
Normal file
@ -0,0 +1,6 @@
|
||||
-- RUN: %llvmgcc -c %s -o /dev/null
|
||||
procedure Array_Constructor is
|
||||
A : array (Integer range <>) of Boolean := (True, False);
|
||||
begin
|
||||
null;
|
||||
end;
|
10
test/AdaFrontend/array_size.adb
Normal file
10
test/AdaFrontend/array_size.adb
Normal file
@ -0,0 +1,10 @@
|
||||
-- RUN: %llvmgcc -c %s -o /dev/null
|
||||
procedure Array_Size is
|
||||
subtype S is String (1 .. 2);
|
||||
type R is record
|
||||
A : S;
|
||||
end record;
|
||||
X : R;
|
||||
begin
|
||||
null;
|
||||
end;
|
Loading…
Reference in New Issue
Block a user