re PR fortran/64506 (FORMAT Parse Error with Continuation Line)

2015-02-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/64506
	* gfortran.dg/continuation_13.f90: New test.
	* gfortran.dg/continuation_14.f: New test.

From-SVN: r220688

gcc/testsuite/ChangeLog

+2015-02-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/64506
+	* gfortran.dg/continuation_13.f90: New test.
+	* gfortran.dg/continuation_14.f: New test.
+
 2015-02-13  Paolo Carlini  <paolo.carlini@oracle.com>
 
 	PR c++/64970

gcc/testsuite/gfortran.dg/continuation_13.f90

+! { dg-do run }
+! { dg-options "-std=gnu" }
+! PR64506
+character(25) :: astring
+
+100 format('This format is OK.'&
+    )
+200 format('This format now works.'&!comment
+    )
+300 format('This format now works.'& !comment
+    )
+400 format('This format is OK.' &!comment
+    )
+500 format('This format is OK.' & !comment
+    )
+600 format('This format now works.'''&!comment
+    )
+700 format('This format now works.'''& !comment
+    )
+800 format('This is actually ok.'& !comment
+   ' end'  )
+write(astring,100)
+if (astring.ne."This format is OK.") call abort
+write(astring,200)
+if (astring.ne."This format now works.") call abort
+write(astring,300)
+if (astring.ne."This format now works.") call abort
+write(astring,400)
+if (astring.ne."This format is OK.") call abort
+write(astring,500)
+if (astring.ne."This format is OK.") call abort
+write(astring,600)
+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
+
+end

gcc/testsuite/gfortran.dg/continuation_14.f

+! { 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