Duncan Sands | 1b4b256 | 2007-07-23 13:41:53 +0000 | [diff] [blame] | 1 | -- RUN: %llvmgcc -c %s |
Chris Lattner | e10988d | 2007-04-03 21:46:22 +0000 | [diff] [blame] | 2 | procedure Array_Range_Ref is |
3 | A : String (1 .. 3); | ||||
4 | B : String := A (A'RANGE)(1 .. 3); | ||||
5 | begin | ||||
6 | null; | ||||
7 | end; |