From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 13 Feb 2015 17:09:04 +0000 (+0000)
Subject: re PR fortran/64506 (FORMAT Parse Error with Continuation Line)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d1ae5966d746eeea7c0f2d4e77c7cf93bb507512;p=gcc.git

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
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index efdc9dce317..b650ac7de53 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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
diff --git a/gcc/testsuite/gfortran.dg/continuation_13.f90 b/gcc/testsuite/gfortran.dg/continuation_13.f90
new file mode 100644
index 00000000000..18528121931
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_13.f90
@@ -0,0 +1,39 @@
+! { 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
diff --git a/gcc/testsuite/gfortran.dg/continuation_14.f b/gcc/testsuite/gfortran.dg/continuation_14.f
new file mode 100644
index 00000000000..a001903f7af
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/continuation_14.f
@@ -0,0 +1,30 @@
+! { 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