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