1! from NIST test FM406.FOR
2         CHARACTER*10 A10VK
3         A10VK = 'XXXXXXXXXX'
4         WRITE(A10VK,39110)
539110    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
15