[Bug fortran/92975] ICE in convert_nonlocal_reference_op, in tree-nested.c:1065

[gs...@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92975

G. Steinmetz <gs...@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

Without such a block :


$ cat z2.f90
program p
   procedure(s), pointer :: g
   g => s
   call g
   call s
contains
   subroutine s
      print *, 's'
   end
end


$ cat z4.f90
program p
   procedure(s), pointer :: g
   g => s
   print *, g()
   print *, s()
contains
   function s() result(n)
      n = 1
   end
end


$ gfortran-10-20191215 z2.f90 && ./a.out
 s
 s

$ gfortran-10-20191215 z4.f90 && ./a.out
           1
           1