!=======================================================================
!   FILE: FORMAT2.f90
!   DATE: 21 July 2003
!
!   TEST: mismatch between format spec. and arguments to write.
!
! Contact: Arnaud Desitter
      program bformat2
      double precision a
      integer i
      a = 0.d0
      i = 0
      write (unit=*,fmt='(I7,D14.6)') a, i
      end