projects
/
oota-llvm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Move getTrue() and getFalse() to 2.5-like APIs.
[oota-llvm.git]
/
test
/
FrontendAda
/
init_size.ads
1
-- RUN: %llvmgcc -c %s
2
package Init_Size is
3
type T (B : Boolean := False) is record
4
case B is
5
when False =>
6
I : Integer;
7
when True =>
8
J : Long_Long_Integer; -- Bigger than I
9
end case;
10
end record;
11
A_T : constant T := (False, 0);
12
end;