[Bug fortran/102331] ICE in attr_decl1, at fortran/decl.c:8691

[gscfq--- via Gcc-bugs]

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

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

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

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

Detected with "type" instead of "class" :


$ cat za1.f90
type(t) function f()
   allocatable :: f
end


$ cat za2.f90
type(t) function f()
   pointer :: f
end


$ gfortran-12-20210905 -c za1.f90
za1.f90:1:0:

    1 | type(t) function f()
      |
Error: The type for function 'f' at (1) is not accessible