| Chris Lattner | e10988d | 2007-04-03 21:46:22 +0000 | [diff] [blame^] | 1 | -- RUN: %llvmgcc -c %s -o /dev/null |
| 2 | procedure VCE_LV is | ||||
| 3 | type P is access String ; | ||||
| 4 | type T is new P (5 .. 7); | ||||
| 5 | subtype U is String (5 .. 7); | ||||
| 6 | X : T := new U'(others => 'A'); | ||||
| 7 | begin | ||||
| 8 | null; | ||||
| 9 | end; | ||||