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

[Paul Brook]

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