Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
compile
/
error-conformance-clause-1.a68
blob: e6cb738a2c95a3466d5416fcd22dd114cc22dfab [
file
]
{
This
is
an invalid program
.
}
begin
case
if
true
then
"foo"
else
10
fi
{
dg
-
error
"not a united mode"
}
in
(
string
):
skip
,
(
int
):
skip
esac
end