https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113412
--- Comment #10 from kargls at comcast dot net --- On 8/26/24 18:47, kargls at comcast dot net wrote: > https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113412 > > --- Comment #9 from kargls at comcast dot net --- > On 8/26/24 12:04, anlauf at gcc dot gnu.org wrote: >> subroutine s2 >> external :: atan >> real :: r = 1. >> print *, atan (-1.d0,r) >> end >> >> subroutine s3 >> real :: r = 1. >> print *, atan (-1.d0,r) ! Should give error similar to s1 case >> end > I agree this should generate an error. On x86_64-*-freebsd, I'm see > > gfcx -c -std=f2018 a.f90 > f951: internal compiler error: Segmentation fault > 0x10d4a57 crash_signal > ../../gcc/gcc/toplev.cc:319 > 0x987fc9 sort_actual > ../../gcc/gcc/fortran/intrinsic.cc:4451 The ICE is due to a patch I have in my tree for atanpi. I believe line 4451 should be emitting the error message you're looking for.