[gfortran] patch for PR 14906 - run time error on blank format string

[Bud Davis]

On Sun, 2004-04-18 at 12:58, Paul Brook wrote:
> On Friday 16 April 2004 03:22, Bud Davis wrote:
> > test suite file:
> >
> > ! from NIST test FM406.FOR
> >          CHARACTER*10 A10VK
> >          A10VK = 'XXXXXXXXXX'
> >          WRITE(A10VK,39110)
> > 39110    FORMAT()
> > !
> > !  the empty format should fill the target of the internal
> > !  write with blanks.
> > !
> >          IF (A10VK.EQ.'XXXXXXXXXX') THEN
> 
> This should be (a10vk .ne. '')
> 
> >            CALL ABORT
> >          ENDIF
> >          END
> >
> > Change log
> >
> > 2004-04-15  Bud Davis <bdavis9659@comcast.net>
> >
> > 	PR fortran/14906
> > 	* io/format.c (format_item): gracefully handle a ')'
> >  	when it is the first character encountered in the string.
> 
> Ok with the change to the testcase as above.
> 
> Paul

changed as requested and committed.

--bud