PR fortran/27981
* match.c (gfc_match_if): Handle errors in assignment in simple if.
2006-06-23 Steven G. Kargl <kargls@comcast.net>
PR fortran/27981
* gfortran.dg/simpleif_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114950
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-06-23 Steven G. Kargl <kargls@comcast.net>
+
+ PR fortran/27981
+ * match.c (gfc_match_if): Handle errors in assignment in simple if.
+
2006-06-22 Asher Langton <langton2@llnl.gov>
PR fortran/24748
gfc_undo_symbols ();
gfc_current_locus = old_loc;
+ /* m can be MATCH_NO or MATCH_ERROR, here. For MATCH_NO, continue to
+ call the various matchers. For MATCH_ERROR, a mangled assignment
+ was found. */
+ if (m == MATCH_ERROR)
+ return MATCH_ERROR;
+
gfc_match (" if ( %e ) ", &expr); /* Guaranteed to match */
m = gfc_match_pointer_assignment ();
+2006-06-23 Steven G. Kargl <kargls@comcast.net>
+
+ PR fortran/27981
+ * gfortran.dg/simpleif_2.f90: New test.
+
2006-06-23 Lee Millward <lee.millward@gmail.com>
* g++.dg/template/error22.C: Fix typo.
--- /dev/null
+! { dg-do compile }
+! PR 27981
+program a
+ real x
+ real, pointer :: y
+ if (.true.) x = 12345678901 ! { dg-error "Integer too big" }
+end program a