OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/27981 (Strange error message for illegal integer constant) 

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-23  Steven G. Kargl  <kargls@comcast.net>

	PR fortran/27981
	* gfortran.dg/simpleif_2.f90: New test.

From-SVN: r114950
This commit is contained in:
Steven G. Kargl 2006-06-23 21:05:04 +00:00 committed by Steven G. Kargl
parent ad0178f8cc
commit 17bbca7480
4 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
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

6
gcc/fortran/match.c
View File

@ -1061,6 +1061,12 @@ gfc_match_if (gfc_statement * if_type)
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 ();

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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.

7
gcc/testsuite/gfortran.dg/simpleif_2.f90 Normal file
View File

@ -0,0 +1,7 @@
! { dg-do compile }
! PR 27981
program a
real x
real, pointer :: y
if (.true.) x = 12345678901 ! { dg-error "Integer too big" }
end program a