repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fix warning with -Wsign-compare -Wsystem-headers
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
empty_format.f90
blob
d86407265e35473b524ca1f14553bbb7090bb054
1
! from NIST test FM406.FOR
2
CHARACTER
*
10
A10VK
3
A10VK
=
'XXXXXXXXXX'
4
WRITE
(
A10VK
,
39110
)
5
39110
FORMAT
()
6
!
7
! the empty format should fill the target of the internal
8
! write with blanks.
9
!
10
IF
(
A10VK
.
NE
.
''
)
THEN
11
! PRINT*,A10VK
12
STOP
1
13
ENDIF
14
END