[Bug fortran/78500] ICE in gfc_check_vardef_context, at fortran/expr.c:5289

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Whereas :


$ cat z2.f90
type(t) function f()
   f = 1
end


$ gfortran-7-20161120 -c z2.f90
z2.f90:1:0:

 type(t) function f()

Error: The type for function 'f' at (1) is not accessible
z2.f90:2:3:

    f = 1
   1
Error: Type inaccessible in variable definition context (assignment) at (1)