blob: 242bee8b467acd99fb953890acea03347c4a7e8c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! 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
|