!=======================================================================
!   FILE: FORMAT3.f90
!   DATE: 21 July 2003
!
!   TEST: overflow of internal write statement in character strings.
!
! Contact: Arnaud Desitter
      program oformat
      character*5 a
      write(a,fmt='(A)') '123456'
      end