This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [patch, fortram] PR64506 FORMAT Parse Error with Continuation Line
- From: Jerry DeLisle <jvdelisle at charter dot net>
- To: Tobias Burnus <burnus at net-b dot de>, gfortran <fortran at gcc dot gnu dot org>, gcc patches <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 01 Feb 2015 20:43:22 -0800
- Subject: Re: [patch, fortram] PR64506 FORMAT Parse Error with Continuation Line
- Authentication-results: sourceware.org; auth=none
- References: <54CE1FAA dot 8040703 at charter dot net> <54CE9460 dot 8030707 at net-b dot de> <54CEFE69 dot 3090105 at charter dot net>
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