Re: [patch, fortram] PR64506 FORMAT Parse Error with Continuation Line

[Jerry DeLisle]

On 02/01/2015 08:34 PM, Jerry DeLisle wrote:

The test case should have the print *, astring changed to call abort.

Jerry

! { dg-do run }
! { dg-options "-std=gnu" }
! PR64506 fixed form source
      character(25) :: astring

 100  format('This format is OK.'
     &)
 200  format('This format works now.'!comment << FAILS
     &)
 300  format('This format is OK.' !comment
     &)
 400  format('This format is OK.'  !comment
     &)
 500  format('This format is now OK.'''!comment
     &   )
 600  format('This format is OK.''' !comment
     &   )
      write(astring,100)
      if (astring.ne."This format is OK.") call abort
      write(astring,200)
      if (astring.ne."This format works now.") call abort
      write(astring,300)
      if (astring.ne."This format is OK.") call abort
      write(astring,400)
      if (astring.ne."This format is OK.") call abort
      write(astring,500)
      if (astring.ne."This format is now OK.'") call abort
      write(astring,600)
      if (astring.ne."This format is OK.'") call abort
      end