Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
quine.a68
blob: 9fd9e422fdc1a069a134f192ab1e57b5a7a24fbe [
file
]
# { dg-options "-fstropping=upper" } #
(
STRING a
=
"(STRING a="";puts(2*a[:19]+2*a[19:]);0)"
;
puts
(
2
*
a
[:
19
]+
2
*
a
[
19
:]))