Sign in
llvm
/
llvm-archive
/
cfaec05de39adb34392b8c7b1ad4b32abbf3663d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
pr17143.f90
blob: 1c171a3c902ecf2fb8759281771bb53fb1d373ca [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
pr17143
!
does
not
print
2
*
63
correctly
character
*
25
l
integer
(
kind
=
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