mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-11-01 16:33:37 +01:00
13 lines
296 B
Ada
13 lines
296 B
Ada
|
-- RUN: %llvmgcc -c %s
|
||
|
|
package Init_Size is
|
||
|
|
type T (B : Boolean := False) is record
|
||
|
|
case B is
|
||
|
|
when False =>
|
||
|
|
I : Integer;
|
||
|
|
when True =>
|
||
|
|
J : Long_Long_Integer; -- Bigger than I
|
||
|
|
end case;
|
||
|
|
end record;
|
||
|
|
A_T : constant T := (False, 0);
|
||
|
|
end;
|