https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69636
--- Comment #6 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
And for visibility of functions etc., a reduced and modified entry_16.f90 :
$ cat z4.f90
module complex
private :: cx_cadr, cx_radc
type cx
integer :: re
integer :: im
end type
interface operator (+)
module procedure cx_cadr, cx_radc
end interface
contains
function cx_cadr(z, r)
entry cx_radc(r, z)
type(cx), intent(in) :: z
integer, intent(in) :: r
type(cx) :: cx_cadr, cx_radc
cx_cadr%re = z%re + r
cx_cadr%im = z%im
end function
end module
program p
use complex
type(cx) :: a = cx(1, 2)
print *, (a + 2)
print *, (2 + a)
end
$ gfortran-6 -c z4.f90
f951: internal compiler error: Unable to find symbol 'cx_cadr'
