Sign in
llvm
/
llvm-archive
/
b74e25f9042d5657e8f400dd820eba426827f1dd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
empty_format.f90
blob: 242bee8b467acd99fb953890acea03347c4a7e8c [
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
CALL ABORT
ENDIF
END