!=======================================================================
!   FILE: FORMAT1.f90
!   DATE: 21 July 2003
!
!   TEST: 1 non standard format specification (in Format or character
!         string). Expected error: Scale factor followed by repeat count
!         detected at 1P@2F8.1.
!
! Contact: Arnaud Desitter
      program sformat
      double precision a
      a = 0.d0
      write(*, 10) a, a, a, a
 10   format(-1P2F8.1, +1P, 2X,(F8.1))
      end