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
