[Bug fortran/96102] ICE in check_host_association, at fortran/resolve.c:5994

[gscfq@t-online.de]

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

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

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

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

For reference a valid and working variant :


$ cat z0.f90
module m
   integer :: n = 2
contains
   subroutine s
      if ( n() /= 0 ) stop 1
      print *, n()
   contains
      integer function n()
         n = 0
      end
   end
end
program p
   use m
   call s
end


$ gfortran-11-20200705 z0.f90 && ./a.out
           0
$