[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2019-08-17 Thread kargl at gcc dot gnu.org
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

kargl at gcc dot gnu.org changed:

   What|Removed |Added

 Status|NEW |RESOLVED
 Resolution|--- |FIXED
   Target Milestone|--- |9.3

--- Comment #9 from kargl at gcc dot gnu.org ---
Fixed on trunk and 9-branch.  Thanks for bug report.

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2019-08-17 Thread kargl at gcc dot gnu.org
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

--- Comment #8 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Sat Aug 17 18:08:21 2019
New Revision: 274609

URL: https://gcc.gnu.org/viewcvs?rev=274609=gcc=rev
Log:
2019-08-17  Steven G. Kargl  

PR fortran/82992
* module.c (gfc_match_use):  When renaming a module entity, search
current namespace for conflicting symbol.

2019-08-17  Steven G. Kargl  

PR fortran/82992
* gfortran.dg/pr71649.f90: Adjust error messages.
* gfortran.dg/use_15.f90: Ditto.
* gfortran.dg/use_rename_8.f90: Ditto.

Modified:
branches/gcc-9-branch/gcc/fortran/ChangeLog
branches/gcc-9-branch/gcc/fortran/module.c
branches/gcc-9-branch/gcc/testsuite/ChangeLog
branches/gcc-9-branch/gcc/testsuite/gfortran.dg/pr71649.f90
branches/gcc-9-branch/gcc/testsuite/gfortran.dg/use_15.f90
branches/gcc-9-branch/gcc/testsuite/gfortran.dg/use_rename_8.f90

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2019-08-17 Thread kargl at gcc dot gnu.org
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

--- Comment #7 from kargl at gcc dot gnu.org ---
Author: kargl
Date: Sat Aug 17 17:15:42 2019
New Revision: 274608

URL: https://gcc.gnu.org/viewcvs?rev=274608=gcc=rev
Log:
2019-08-17  Steven G. Kargl  

PR fortran/82992
* module.c (gfc_match_use):  When renaming a module entity, search
current namespace for conflicting symbol.

2019-08-17  Steven G. Kargl  

PR fortran/82992
* gfortran.dg/pr71649.f90: Adjust error messages.
* gfortran.dg/use_15.f90: Ditto.
* gfortran.dg/use_rename_8.f90: Ditto.

Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/module.c
trunk/gcc/testsuite/ChangeLog
trunk/gcc/testsuite/gfortran.dg/pr71649.f90
trunk/gcc/testsuite/gfortran.dg/use_15.f90
trunk/gcc/testsuite/gfortran.dg/use_rename_8.f90

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2019-08-15 Thread kargl at gcc dot gnu.org
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

kargl at gcc dot gnu.org changed:

   What|Removed |Added

   Priority|P3  |P4
 CC||kargl at gcc dot gnu.org
   Assignee|unassigned at gcc dot gnu.org  |kargl at gcc dot gnu.org

--- Comment #6 from kargl at gcc dot gnu.org ---
Patch submitted.

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2018-03-18 Thread anlauf at gmx dot de
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

--- Comment #5 from Harald Anlauf  ---
Adding 'implicit none' after the use statements:

subroutine sub (c_int)
   use iso_c_binding, only: c_int
   implicit none  ! makes no difference
end

-> still no error message

module pr82992
  integer :: x
end module pr82992
subroutine sub (x)
  use pr82992, only : x
  implicit none   ! -> Error: Symbol 'x' at (1) has no IMPLICIT type
end

-> gives wrong/misleading error message

pr82992c.f90:4:17:

 subroutine sub (x)
 1
Error: Symbol 'x' at (1) has no IMPLICIT type

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2018-03-17 Thread anlauf at gmx dot de
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

--- Comment #4 from Harald Anlauf  ---
The accepts-invalid also happens for the simpler examples:

subroutine sub (c_int)
   use iso_c_binding, only: c_int
end

The NAG compiler complains:

NAG Fortran Compiler Release 6.1(Tozai) Build 6106
Error: pr82992b.f90, line 2: Name clash between dummy argument C_INT and symbol
from USE ISO_C_BINDING
   detected at C_INT@
Warning: pr82992b.f90, line 3: Unused dummy variable C_INT
[NAG Fortran Compiler pass 1 error termination, 1 error, 1 warning]


or for a simple, non-intrinsic module:

module pr82992
  integer :: x
end module pr82992
subroutine sub (x)
  use pr82992
end


Error: pr82992c.f90, line 5: Name clash between dummy argument X and symbol
from USE PR82992
   detected at PR82992@
Warning: pr82992c.f90, line 6: Unused dummy variable X
[NAG Fortran Compiler pass 1 error termination, 1 error, 1 warning]

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2018-03-15 Thread anlauf at gmx dot de
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

--- Comment #3 from Harald Anlauf  ---
The ICE on invalid is solved.  The invalid code still needs to be detected.

NAG complains:

NAG Fortran Compiler Release 6.1(Tozai) Build 6106
Error: pr82992.f90, line 2: Name clash between dummy argument X and symbol from
USE ISO_FORTRAN_ENV
   detected at CHARACTER_KINDS@

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2018-01-18 Thread anlauf at gmx dot de
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

Harald Anlauf  changed:

   What|Removed |Added

 CC||anlauf at gmx dot de

--- Comment #2 from Harald Anlauf  ---
Obvious fix for the ICE:

Index: gcc/fortran/module.c
===
--- gcc/fortran/module.c(revision 256858)
+++ gcc/fortran/module.c(working copy)
@@ -6597,7 +6597,7 @@
   gfc_symbol *sym;

   tmp_symtree = gfc_find_symtree (gfc_current_ns->sym_root, name);
-  if (tmp_symtree != NULL)
+  if (tmp_symtree != NULL && tmp_symtree->n.sym && tmp_symtree->n.sym->module)
 {
   if (strcmp (modname, tmp_symtree->n.sym->module) == 0)
return;

[Bug fortran/82992] ICE in create_int_parameter_array, at fortran/module.c:6586

2017-11-14 Thread dominiq at lps dot ens.fr
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82992

Dominique d'Humieres  changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
   Last reconfirmed||2017-11-14
 Ever confirmed|0   |1

--- Comment #1 from Dominique d'Humieres  ---
Confirmed from 4.8 up to trunk (8.0).

My instrumented compiler gives

../../work/gcc/fortran/module.c:6586:18: runtime error: null pointer passed as
argument 2, which is declared to never be null