diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-01-10 01:11:51 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2019-01-10 01:11:51 +0000 |
| commit | 8c94b8dad232c35a3d713c5df782e90ee560985f (patch) | |
| tree | b1c9987f103a79f386cc9a9b14d0de92e5d066af /gcc/fortran/resolve.c | |
| parent | 3856c6bbb45d76572e259a503fece36bca65676f (diff) | |
| download | gcc-8c94b8dad232c35a3d713c5df782e90ee560985f.zip gcc-8c94b8dad232c35a3d713c5df782e90ee560985f.tar.gz gcc-8c94b8dad232c35a3d713c5df782e90ee560985f.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index a681eca..d18f2d8 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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; |