From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 060583858CDA; Wed, 3 Apr 2024 03:50:25 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 060583858CDA DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1712116226; bh=nQluCOaezJXCSswu4cmG2pnuK9NefrhrqbEZMxIeDJE=; h=From:To:Subject:Date:In-Reply-To:References:From; b=xw7GFU8ErRdgQGTBWPx3rWbcPbOlozgM4RgvP4sWxXIRyF2wgAjF3lPkG7xEiAQjE dJ9HG0jOzwnfsV/zPKJyu9jXyne9vYPiVhGW2Yz06xlcvpBvCq08hFAh6jx+6Qw6j8 hCoYYk/CXdej9HXWOLv3BhuL7QEFi32TcN0Y4YyI= From: "jvdelisle at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/105473] semicolon allowed when list-directed read integer with decimal='point' Date: Wed, 03 Apr 2024 03:50:24 +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: 9.4.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: jvdelisle at gcc dot gnu.org X-Bugzilla-Status: NEW X-Bugzilla-Resolution: X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: jvdelisle at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: attachments.created Message-ID: In-Reply-To: References: 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: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D105473 --- Comment #37 from Jerry DeLisle --- Created attachment 57855 --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=3D57855&action=3Dedit Preliminary patch to address some incorrect behavior This attached patch, gives some better results for the testcase in the prev= ious commenr. $ ./a.out=20 comma, isreal =3D F, testinput =3D ; n=3D 42 ios=3D 0 point, isreal =3D F, testinput =3D ; n=3D 42 ios=3D 0 comma, isreal =3D F, testinput =3D , n=3D 42 ios=3D 5010 point, isreal =3D F, testinput =3D , n=3D 42 ios=3D 0 comma, isreal =3D F, testinput =3D . n=3D 42 ios=3D 5010 point, isreal =3D F, testinput =3D . n=3D 42 ios=3D 5010 comma, isreal =3D F, testinput =3D 5. n=3D 42 ios=3D 5010 point, isreal =3D F, testinput =3D 5. n=3D 42 ios=3D 5010 comma, isreal =3D F, testinput =3D 5, n=3D 42 ios=3D 5010 point, isreal =3D F, testinput =3D 5, n=3D 5 ios=3D 0 comma, isreal =3D F, testinput =3D 5; n=3D 5 ios=3D 0 point, isreal =3D F, testinput =3D 5; n=3D 5 ios=3D 0 comma, isreal =3D F, testinput =3D 7 . n=3D 7 ios=3D 0 point, isreal =3D F, testinput =3D 7 . n=3D 7 ios=3D 0 comma, isreal =3D F, testinput =3D 7 , n=3D 7 ios=3D 0 point, isreal =3D F, testinput =3D 7 , n=3D 7 ios=3D 0 comma, isreal =3D F, testinput =3D 7 ; n=3D 7 ios=3D 0 point, isreal =3D F, testinput =3D 7 ; n=3D 7 ios=3D 0 comma, isreal =3D T, testinput =3D 8. r=3D 42.00 ios=3D 5010 point, isreal =3D T, testinput =3D 8. r=3D 8.00 ios=3D 0 comma, isreal =3D T, testinput =3D 8, r=3D 8.00 ios=3D 0 point, isreal =3D T, testinput =3D 8, r=3D 8.00 ios=3D 0 comma, isreal =3D T, testinput =3D 8; r=3D 8.00 ios=3D 0 point, isreal =3D T, testinput =3D 8; r=3D 8.00 ios=3D 0 comma, isreal =3D T, testinput =3D 9 . r=3D 9.00 ios=3D 0 point, isreal =3D T, testinput =3D 9 . r=3D 9.00 ios=3D 0 comma, isreal =3D T, testinput =3D 9 , r=3D 9.00 ios=3D 0 point, isreal =3D T, testinput =3D 9 , r=3D 9.00 ios=3D 0 comma, isreal =3D T, testinput =3D 9 ; r=3D 9.00 ios=3D 0 point, isreal =3D T, testinput =3D 9 ; r=3D 9.00 ios=3D 0 comma, isreal =3D T, testinput =3D 3,3. r=3D 42.00 ios=3D 5010 point, isreal =3D T, testinput =3D 3.3. r=3D 42.00 ios=3D 5010 comma, isreal =3D T, testinput =3D 3,3, r=3D 42.00 ios=3D 5010 comma, isreal =3D T, testinput =3D 3,3; r=3D 3.30 ios=3D 0 point, isreal =3D T, testinput =3D 3.3; r=3D 3.30 ios=3D 0 comma, isreal =3D T, testinput =3D 4,4 . r=3D 4.40 ios=3D 0 point, isreal =3D T, testinput =3D 4.4 . r=3D 4.40 ios=3D 0 comma, isreal =3D T, testinput =3D 4,4 , r=3D 4.40 ios=3D 0 point, isreal =3D T, testinput =3D 4.4 , r=3D 4.40 ios=3D 0 comma, isreal =3D T, testinput =3D 4,4 ; r=3D 4.40 ios=3D 0 point, isreal =3D T, testinput =3D 4.4 ; r=3D 4.40 ios=3D 0=