git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/88376 (ICE in is_illegal_recursion, at fortran/resolve.c:1689) 

2019-01-09  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/88376
	* resolve.c (is_illegal_recursion): Remove an assert().

2019-01-09  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/88376
	* gfortran.dg/pr88376.f90: New test.

From-SVN: r267793
This commit is contained in:
Steven G. Kargl 2019-01-10 01:11:51 +00:00
parent 3856c6bbb4
commit 8c94b8dad2
4 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,13 +1,16 @@
2019-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88376
* resolve.c (is_illegal_recursion): Remove an assert().
2019-01-09 Sandra Loosemore <sandra@codesourcery.com>
PR other/16615
* expr.c: Change "can not" to "cannot".
2019-01-09 Sandra Loosemore <sandra@codesourcery.com>
PR other/16615
* class.c: Mechanically replace "can not" with "cannot".
* decl.c: Likewise.
* expr.c: Likewise.

2
gcc/fortran/resolve.c
View File

@ -1686,8 +1686,6 @@ is_illegal_recursion (gfc_symbol* sym, gfc_namespace* context)
|| gfc_fl_struct (sym->attr.flavor))
return false;
gcc_assert (sym->attr.flavor == FL_PROCEDURE);
/* If we've got an ENTRY, find real procedure. */
if (sym->attr.entry && sym->ns->entries)
proc_sym = sym->ns->entries->sym;

6
gcc/testsuite/ChangeLog
View File

@ -1,7 +1,11 @@
2019-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88376
* gfortran.dg/pr88376.f90: New test.
2019-01-09 Sandra Loosemore <sandra@codesourcery.com>
PR other/16615
* g++.dg/lto/odr-1_1.C: Update diagnostic message patterns to replace
"can not" with "cannot".
* gfortran.dg/common_15.f90: Likewise.

8
gcc/testsuite/gfortran.dg/pr88376.f90 Normal file
View File

@ -0,0 +1,8 @@
! { dg-do compile }
module m
integer :: n
contains
subroutine s
character(n(3)) :: c ! { dg-error "not a function" }
end
end