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.

Reply via email to