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