re PR fortran/65903 (Line continuation followed by comment character in string fails to compile)

2015-05-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/65903
	* gfortran.dg/continuation_13.f90: Update test.
	* gfortran.dg/pr65903.f90: New test.

From-SVN: r223249

gcc/testsuite/ChangeLog

+2015-05-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/65903
+	* gfortran.dg/continuation_13.f90: Update test.
+	* gfortran.dg/pr65903.f90: New test.
+
 2015-05-16  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/66113

gcc/testsuite/gfortran.dg/continuation_13.f90

@@ -17,8 +17,11 @@ character(25) :: astring
     )
 700 format('This format now works.'''& !comment
     )
+! See PR65903 for the following cases.
 800 format('This is actually ok.'& !comment
    ' end'  )
+900 format('This is actually ok.' & !comment
+   ' end'  )
 write(astring,100)
 if (astring.ne."This format is OK.") call abort
 write(astring,200)
@@ -34,6 +37,8 @@ if (astring.ne."This format now works.'") call abort
 write(astring,700)
 if (astring.ne."This format now works.'") call abort
 write(astring,800)
+if (astring.ne."This is actually ok.' end") call abort
+write(astring,900)
 if (astring.ne."This is actually ok. end") call abort
 
 end

gcc/testsuite/gfortran.dg/pr65903.f90

+! { dg-do run }
+! { dg-options "-std=gnu" }
+! 
+character(20) :: astring
+
+100 format ("& notblank !")
+200 format ("&          !")
+300 format ("&!")
+
+write(astring,100)
+if (astring.ne."& notblank !") call abort
+!print *, astring
+write(astring,200)
+if (astring.ne."&          !") call abort
+!print *, astring
+write(astring,300)
+if (astring.ne."&!") call abort
+!print *, astring
+
+end