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