Sign in
llvm
/
llvm
/
refs/heads/release_29
/
.
/
test
/
FrontendAda
/
field_order.ads
blob: 9b2b37c20db0024365581609cc7452c4b5769a71 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
S
%
s
package
Field_Order
is
type
Tagged_Type
is
abstract
tagged
null
record
;
type
With_Discriminant
(
L
:
Positive
)
is
new
Tagged_Type
with
record
S
:
String
(
1
..
L
);
end
record
;
end
;