| Duncan Sands | 2b5243d | 2010-11-25 21:21:59 +0000 | [diff] [blame] | 1 | -- RUN: %llvmgcc -S %s |
| Chris Lattner | 412c70e | 2007-04-03 21:46:22 +0000 | [diff] [blame] | 2 | procedure Array_Size is |
| 3 | subtype S is String (1 .. 2); | ||||
| 4 | type R is record | ||||
| 5 | A : S; | ||||
| 6 | end record; | ||||
| 7 | X : R; | ||||
| 8 | begin | ||||
| 9 | null; | ||||
| 10 | end; | ||||