Sign in
llvm
/
llvm
/
refs/heads/release_29
/
.
/
test
/
FrontendAda
/
non_bitfield.ads
blob: 8a49d46f6b4286db0f86e6c870681cd1f3594047 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
S
%
s
package
Non_Bitfield
is
type SP
is
access
String
;
type E
is
(
A
,
B
,
C
);
type T
(
D
:
E
)
is
record
case
D
is
when
A
=>
X
:
Boolean
;
when
B
=>
Y
:
SP
;
when
C
=>
Z
:
String
(
1
..
2
);
end
case
;
end
record
;
end
;