Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
multab-3.a68
blob: 87d7f42b80b1f6a1fddc35a2484bf5c2111e6f38 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT num ints
:=
10
;
num ints
*:=
2
;
ASSERT
(
num ints
=
20
);
ASSERT
((
LOC INT
*:=
12
)
=
0
)
END