  program testfmt

3 FORMAT()
4 FORMAT(232I13.5, I40, B13.3 ,B30 , O12, Z12.2, Z32, F34)
5 FORMAT(T32, TL32, TR32, 23X)
 6 FORMAT(32 /, /, :, S,SP,SS, 23 P , BN, BZ)
! 7 FORMAT("1234",2 H xr) 
! 8 FORMAT(123,(TL 32, TR 32, 23 X)) !syntax error:433 COMMA 433
!9 FORMAT(("asdf",232 H HCHAR),(r I 13.5, I 40, B 13.3)) 

  end

