Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
pr17143.f90
blob: 0ebcbdacc37f1c02fa3bdbf44844089235a9996a [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
pr17143
!
does
not
print
2
*
63
correctly
character
*
25
l
integer
*
8
i
data i
/
1
/
do
j
=
1
,
63
i
=
i
*
2
end
do
write
(
l
,*)
i
if
(
l
.
ne
.
' -9223372036854775808'
)
then
!
^
!
the space
is
required before a number
call abort
endif
end