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 92CB8386F41B; Mon, 16 May 2022 21:13:04 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 92CB8386F41B
From: "harper at msor dot vuw.ac.nz" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/105473] semicolon allowed when list-directed read
 integer with decimal='point'
Date: Mon, 16 May 2022 21:13:04 +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: harper at msor dot vuw.ac.nz
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: 
Message-ID: <bug-105473-4-9sZ6BsbtyN@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-105473-4@http.gcc.gnu.org/bugzilla/>
References: <bug-105473-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
X-BeenThere: gcc-bugs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-bugs mailing list <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Mon, 16 May 2022 21:13:04 -0000

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

--- Comment #17 from harper at msor dot vuw.ac.nz ---
On comparing that with ifort's result I think that the only remaining bug
is that if decimal=3D'comma' then '.' is neither a decimal symbol nor a=20
separator (see f2018 13.6).


On Mon, 16 May 2022, jvdelisle at gcc dot gnu.org wrote:

> Date: Mon, 16 May 2022 00:49:44 +0000
> From: jvdelisle at gcc dot gnu.org <gcc-bugzilla@gcc.gnu.org>
> To: John Harper <john.harper@vuw.ac.nz>
> Subject: [Bug fortran/105473] semicolon allowed when list-directed read
>     integer with decimal=3D'point'
> Resent-Date: Mon, 16 May 2022 12:49:53 +1200 (NZST)
> Resent-From: <john.harper@vuw.ac.nz>
>=20
> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D105473
>
> --- Comment #13 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
> With John's multiple combinations test case I get the following results w=
ith
> the attached patch. All places where we gave an error before the patch, w=
e give
> errors now plus new errors
>
> $ gfc multi.f90
> $ ./a.out
> i=3D           1 input(i) =3D "2,5,"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> i=3D           2 input(i) =3D "2;5,"
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           3 input(i) =3D "2 5,"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           4 input(i) =3D "2.5,"
> with decimal=3Dpoint x(:) =3D   2.50000000       5.00000000      ios=3D  =
        -1
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
      5010
> i=3D           5 input(i) =3D "2,5;"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> i=3D           6 input(i) =3D "2;5;"
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           7 input(i) =3D "2 5;"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           8 input(i) =3D "2.5;"
> with decimal=3Dpoint x(:) =3D   2.50000000       5.00000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> i=3D           9 input(i) =3D "2,5 "
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> i=3D          10 input(i) =3D "2;5 "
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          11 input(i) =3D "2 5 "
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          12 input(i) =3D "2.5 "
> with decimal=3Dpoint x(:) =3D   2.50000000       5.00000000      ios=3D  =
        -1
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> i=3D          13 input(i) =3D "2,5."
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> i=3D          14 input(i) =3D "2;5."
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          15 input(i) =3D "2 5."
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          16 input(i) =3D "2.5."
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
      5010
> with decimal=3Dcomma x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> [jerry@amdr pr105473]$ gfc multi.f90
> [jerry@amdr pr105473]$ ./a.out
> i=3D           1 input(i) =3D "2,5,"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> Bad real number in item 1 of list input
> i=3D           2 input(i) =3D "2;5,"
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> Semicolon not allowed as separator with DECIMAL=3D'point'
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           3 input(i) =3D "2 5,"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           4 input(i) =3D "2.5,"
> with decimal=3Dpoint x(:) =3D   2.50000000       5.00000000      ios=3D  =
        -1
> End of file
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
      5010
> Bad real number in item 1 of list input
> i=3D           5 input(i) =3D "2,5;"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
      5010
> Semicolon not allowed as separator with DECIMAL=3D'point'
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> End of file
> i=3D           6 input(i) =3D "2;5;"
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> Semicolon not allowed as separator with DECIMAL=3D'point'
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           7 input(i) =3D "2 5;"
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
      5010
> Semicolon not allowed as separator with DECIMAL=3D'point'
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D           8 input(i) =3D "2.5;"
> with decimal=3Dpoint x(:) =3D   2.50000000       5.00000000      ios=3D  =
      5010
> Semicolon not allowed as separator with DECIMAL=3D'point'
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> End of file
> i=3D           9 input(i) =3D "2,5 "
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> End of file
> i=3D          10 input(i) =3D "2;5 "
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> Semicolon not allowed as separator with DECIMAL=3D'point'
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          11 input(i) =3D "2 5 "
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          12 input(i) =3D "2.5 "
> with decimal=3Dpoint x(:) =3D   2.50000000       5.00000000      ios=3D  =
        -1
> End of file
> with decimal=3Dcomma x(:) =3D   2.50000000       666.000000      ios=3D  =
        -1
> End of file
> i=3D          13 input(i) =3D "2,5."
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> Bad real number in item 1 of list input
> i=3D          14 input(i) =3D "2;5."
> with decimal=3Dpoint x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> Semicolon not allowed as separator with DECIMAL=3D'point'
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          15 input(i) =3D "2 5."
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> with decimal=3Dcomma x(:) =3D   2.00000000       5.00000000      ios=3D  =
         0
> i=3D          16 input(i) =3D "2.5."
> with decimal=3Dpoint x(:) =3D   2.00000000       5.00000000      ios=3D  =
      5010
> Bad real number in item 1 of list input
> with decimal=3Dcomma x(:) =3D   2.00000000       666.000000      ios=3D  =
      5010
> Bad real number in item 1 of list input
>
> --=20
> You are receiving this mail because:
> You reported the bug.
>


-- John Harper, School of Mathematics and Statistics
Victoria Univ. of Wellington, PO Box 600, Wellington 6140, New Zealand.
e-mail john.harper@vuw.ac.nz phone +64(0) 4 463 5276=