https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104351
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
Without a result-name :
$ cat z2.f90
program p
implicit none
type t
end type
type(t) :: f
contains
real function f()
f = 0.0
end
end
$ gfortran-12-20220130 -c z2.f90
z2.f90:7:20:
7 | real function f()
| 1
Error: Symbol 'f' at (1) already has basic type of DERIVED
z2.f90:8:8:
8 | f = 0.0
| 1
Error: Symbol 'f' at (1) has already been host associated
z2.f90:1:9:
1 | program p
| 1
......
10 | end
| 2
Error: Two main PROGRAMs at (1) and (2)
