llvm/test/FrontendAda/array_range_ref.adb

-- RUN: %llvmgcc -c %s
procedure Array_Range_Ref is
   A : String (1 .. 3);
   B : String := A (A'RANGE)(1 .. 3);
begin
   null;
end;
For multipart tests, place the parts with no RUN line in Support. Give up on sending output to /dev/null - this cannot always be arranged. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@40436 91177308-0d34-0410-b5e6-96231b3b80d8 2007-07-23 13:41:53 +00:00			`-- RUN: %llvmgcc -c %s`
move ada tests git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@35629 91177308-0d34-0410-b5e6-96231b3b80d8 2007-04-03 21:46:22 +00:00			`procedure Array_Range_Ref is`
			`A : String (1 .. 3);`
			`B : String := A (A'RANGE)(1 .. 3);`
			`begin`
			`null;`
			`end;`