      program t
* test for e, en, es, and p in format-item-list
      real::a=3.141592654
 5678 format (3p,E15.7,-3p,E15.7e4,0p,EN15.5,EN10.3e5,ES10.3,ES10.3e1)
      write (*,5678) a,a,a,a,a,a
      endprogram t
