From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
	id 544DB388301D; Tue,  2 Apr 2024 20:20:11 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 544DB388301D
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
	s=default; t=1712089211;
	bh=T0CzgpeqT5wFeosRVETiQY1c9Vqx56Thd+qC55wISw4=;
	h=From:To:Subject:Date:In-Reply-To:References:From;
	b=k1WnRnBHin8zGGIN4kUTBVD2PhAI1PBggb2TJRLRyEk9oaPooSl5JkqRmzKrPMmE7
	 bjjJOb25sl3yHtBiN8VztZ1P6nLc4ktqgyaI/0nPLPDFTPkoeajJURi7vXSL1b294o
	 Hw0dtM9y+HeYrhjXpjPzc9iIKlFxi8Ni89Lt4VeE=
From: "anlauf at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/113412] ATAN(Y,X) does not check arguments and
 generates wrong error message.
Date: Tue, 02 Apr 2024 20:20:08 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Version: 13.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: anlauf at gcc dot gnu.org
X-Bugzilla-Status: NEW
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P4
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: cc
Message-ID: <bug-113412-4-Hautf35yTh@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-113412-4@http.gcc.gnu.org/bugzilla/>
References: <bug-113412-4@http.gcc.gnu.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
List-Id: <gcc-bugs.sourceware.org>

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D113412

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #4 from anlauf at gcc dot gnu.org ---
(In reply to kargls from comment #3)
> Created attachment 57109 [details]
> patch
>=20
> The attached patch has been regtested.  There were no regression.

Steve,

I just tried your patch.  While it fixes comment#0, it misses:

  print *, atan(1.d0,1.0)
end

I get as traceback:

f951: internal compiler error: Segmentation fault
0x1121b3f crash_signal
        ../../gcc-trunk/gcc/toplev.cc:319
0x9cde02 sort_actual
        ../../gcc-trunk/gcc/fortran/intrinsic.cc:4381
0x9ceac2 check_specific
        ../../gcc-trunk/gcc/fortran/intrinsic.cc:4795
0x9cf2f0 gfc_intrinsic_func_interface(gfc_expr*, int)
        ../../gcc-trunk/gcc/fortran/intrinsic.cc:5067
0xa350b1 resolve_unknown_f
        ../../gcc-trunk/gcc/fortran/resolve.cc:3039
0xa47ff0 resolve_function
        ../../gcc-trunk/gcc/fortran/resolve.cc:3396
0xa46df9 gfc_resolve_expr(gfc_expr*)
        ../../gcc-trunk/gcc/fortran/resolve.cc:7526
0xa5bc46 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc-trunk/gcc/fortran/resolve.cc:12619
0xa5d0b2 gfc_resolve_blocks(gfc_code*, gfc_namespace*)
        ../../gcc-trunk/gcc/fortran/resolve.cc:11432
0xa5bbfe gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc-trunk/gcc/fortran/resolve.cc:12609
0xa5ec88 resolve_codes
        ../../gcc-trunk/gcc/fortran/resolve.cc:18463
0xa4080b gfc_resolve(gfc_namespace*)
        ../../gcc-trunk/gcc/fortran/resolve.cc:18498
0xa26806 resolve_all_program_units
        ../../gcc-trunk/gcc/fortran/parse.cc:7034
0xa26ffd gfc_parse_file()
        ../../gcc-trunk/gcc/fortran/parse.cc:7290
0xa8f6df gfc_be_parse_file
        ../../gcc-trunk/gcc/fortran/f95-lang.cc:241=