https://gcc.gnu.org/bugzilla/show_bug.cgi?id=96011
kargl at gcc dot gnu.org changed: What |Removed |Added ---------------------------------------------------------------------------- Ever confirmed|0 |1 Status|UNCONFIRMED |NEW CC| |kargl at gcc dot gnu.org Last reconfirmed| |2020-06-30 --- Comment #1 from kargl at gcc dot gnu.org --- (In reply to G. Steinmetz from comment #0) > Seems to be an old issue : > > > $ cat z1.f90 > program p > contains > type(t) function f() > external f.n > end > end With svn r 2810156, I get the following: mobile:kargl[243] gfcx -c -std=f2018 z1.f90 a.f90:3:3: 3 | type(t) function f() | 1 4 | external f.n | 2 Error: RESULT variable 'f' at (1) prohibits FUNCTION name 'f' at (2) from appearing in a specification statement z1.f90:3:21: 3 | type(t) function f() | 1 Error: Bad kind expression for function 'f' at (1) f951: internal compiler error: Segmentation fault 0x89dfbbc crash_signal ../../gcc/gcc/toplev.c:328 0x8428132 resolve_symbol ../../gcc/gcc/fortran/resolve.c:15382 0x8452c4f do_traverse_symtree ../../gcc/gcc/fortran/symbol.c:4165