Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
empty_format.f90
blob: d86407265e35473b524ca1f14553bbb7090bb054 [
file
] [
log
] [
blame
]
!
from
NIST test FM406
.
FOR
CHARACTER
*
10
A10VK
A10VK
=
'XXXXXXXXXX'
WRITE
(
A10VK
,
39110
)
39110
FORMAT
()
!
!
the empty format should fill the target of the
internal
!
write
with
blanks
.
!
IF
(
A10VK
.
NE
.
''
)
THEN
!
PRINT
*,
A10VK
STOP
1
ENDIF
END