* Rejects ASSOCIATE and a complex part%ref when target is a function
@ 2024-02-28 0:55 Steve Kargl
0 siblings, 0 replies; only message in thread
From: Steve Kargl @ 2024-02-28 0:55 UTC (permalink / raw)
To: fortran, gcc-patches
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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2024-02-28 0:55 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2024-02-28 0:55 Rejects ASSOCIATE and a complex part%ref when target is a function Steve Kargl
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).