Sign in
llvm
/
llvm
/
refs/heads/release_29
/
.
/
test
/
FrontendAda
/
Support
/
non_lvalue.ads
blob: 7d4eeed8b8ec68ce6e9a8673d6b983fee114b24c [
file
] [
log
] [
blame
]
package
Non_LValue
is
type T
(
Length
:
Natural
)
is
record
A
:
String
(
1
..
Length
);
B
:
String
(
1
..
Length
);
end
record
;
type T_Ptr
is
access all T
;
type U
is
record
X
:
T_Ptr
;
end
record
;
function
A
(
Y
:
U
)
return
String
;
end
;