All,
Consider,
! { dg-do run }
program foo
implicit none
real y
associate (x => log(cmplx(-1,0)))
y = x%im
if (int(100*y)-314 /= 0) stop 1
end associate
end program
% gfcx -c a.f90
a.f90:6:13:
6 | y = x%im
| 1
Error: Symbol 'x' at (1) has no IMPLICIT type
'x' has the type of thi selector, which is COMPLEX.
I have created the following bug report
https://gcc.gnu.org/pipermail/gcc-bugs/2024-February/855452.html
and attached a patch that fixes the problem. The patch has been
regression tested against x86_64-*-freebsd. Please commit.
--
Steve
