Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
selection-5.a68
blob: 720dd57c025f7dd47a1fd6dbd724565f06c840ae [
file
] [
log
] [
blame
]
begin
mode
Jorl
=
struct
(
int
i
,
real r
);
ref
Jorl
jorl
=
loc
Jorl
:=
(
10
,
3.14
);
assert
(
i
'jorl = 10)
end