From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Wed, 19 Dec 2007 05:58:53 +0000 (+0000)
Subject: re PR fortran/34325 (Wrong error message for syntax error)
X-Git-Tag: releases/gcc-4.3.0~899
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=366547f061f1b84924b51b395c4365fd8a2a0b20;p=thirdparty%2Fgcc.git

re PR fortran/34325 (Wrong error message for syntax error)

2007-12-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/34325
	* gfortran.dg/missing_parens_1.f90: New.
	* gfortran.dg/missing_parens_1.f90: New.

From-SVN: r131053
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c22d05ce3ee7..2929f2cc4d05 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-12-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/34325
+	* gfortran.dg/missing_parens_1.f90: New.
+	* gfortran.dg/missing_parens_1.f90: New.
+	
 2007-12-19  Daniel Franke  <franke.daniel@gmail.com>
 
 	PR fortran/34495
diff --git a/gcc/testsuite/gfortran.dg/missing_parens_1.f90 b/gcc/testsuite/gfortran.dg/missing_parens_1.f90
new file mode 100644
index 000000000000..70c348810c8f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/missing_parens_1.f90
@@ -0,0 +1,14 @@
+! { dg-do compile }
+! PR34325 Wrong error message for syntax error
+program aa
+implicit none
+real(kind=8)::r1=0
+character(25) :: a
+a = 'I am not a )))))'')''.'
+if ((((((a /= "I am not a )))))')'.")))))) call abort
+if ((((((a /= 'I am not a )))))'')''.')))))) call abort
+a = "I am not a )))))"")""."
+if ((((((a /= "I am not a )))))"")"".")))))) call abort
+if (((3*r1)**2)>= 0) a = "good"
+if ((3*r1)**2)>= 0) a = "bad" ! { dg-error "Missing '\\(' in statement" }
+end
diff --git a/gcc/testsuite/gfortran.dg/missing_parens_2.f90 b/gcc/testsuite/gfortran.dg/missing_parens_2.f90
new file mode 100644
index 000000000000..b06c2ae6756c
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/missing_parens_2.f90
@@ -0,0 +1,14 @@
+! { dg-do run }
+! PR34325 Wrong error message for syntax error
+program aa
+implicit none
+real(kind=8)::r1=0
+character(25) :: a
+a = 'I am not a )))))'')''.'
+if ((((((a /= "I am not a )))))')'.")))))) call abort
+if ((((((a /= 'I am not a )))))'')''.')))))) call abort
+a = "I am not a )))))"")""."
+if ((((((a /= "I am not a )))))"")"".")))))) call abort
+if (((3*r1)**2)>= 0) a = "good"
+if (a /= "good") call abort
+end