| Duncan Sands | ad04cb2 | 2008-01-04 17:31:56 +0000 | [diff] [blame] | 1 | -- RUN: %llvmgcc -c %s |
| 2 | package Non_Bitfield is | ||||
| 3 | type SP is access String; | ||||
| 4 | type E is (A, B, C); | ||||
| 5 | type T (D : E) is record | ||||
| 6 | case D is | ||||
| 7 | when A => X : Boolean; | ||||
| 8 | when B => Y : SP; | ||||
| 9 | when C => Z : String (1 .. 2); | ||||
| 10 | end case; | ||||
| 11 | end record; | ||||
| 12 | end; | ||||