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
+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
--- /dev/null
+! { 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
--- /dev/null
+! { 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