mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 21:51:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/66057 (ICE for incomplete generic statement (gfc_match_generic))

Browse Source 
2015-05-18  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/66057
	* decl.c(gfc_match_generic):  Detected a malformed GENERIC statement.

2015-05-18  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/66057
	* gfortran.dg/generic_29.f90: New tests.

From-SVN: r223325
This commit is contained in:
Steven G. Kargl 2015-05-18 23:09:49 +00:00
parent 73641c881f
commit 377e37c159
4 changed files with 26 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 @@
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66057
* decl.c(gfc_match_generic): Detected a malformed GENERIC statement.
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66043

5
gcc/fortran/decl.c
View File

@ -8511,6 +8511,11 @@ gfc_match_generic (void)
gfc_op2string (op));
break;
case INTERFACE_NAMELESS:
gfc_error ("Malformed GENERIC statement at %C");
goto error;
break;
default:
gcc_unreachable ();
}

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66057
* gfortran.dg/generic_29.f90: New tests.
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66043

11
gcc/testsuite/gfortran.dg/generic_29.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do compile}
! PR fortran/66057
!
! Original code from Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
program p
type t
contains
generic :: ! { dg-error "Malformed GENERIC" }
end type
end