Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
mult-char-1.a68
blob: 67af07323b4a8a57be39b4f4684c81a3b0f41222 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
ASSERT
(
"a"
*
3
=
"aaa"
);
ASSERT
(
""
*
1
=
""
);
ASSERT
(
"x"
*
0
=
"x"
);
ASSERT
(
3
*
"a"
=
"aaa"
);
ASSERT
(
1
*
""
=
""
);
ASSERT
(
0
*
"x"
=
"x"
)
END