Test support for arrays with non-zero first index.

llvm-svn: 35084
This commit is contained in:
Duncan Sands 2007-03-13 15:12:35 +00:00
parent 9c77df75ea
commit c56601a219
2 changed files with 16 additions and 0 deletions

View 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;

View 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;