OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/19216 (list directed read with leading slash (NIST FM923)) 

PR libfortran/19216
	* io/list_read.c (eat_separator): No need to call next_record,
	even in non-namelist_mode.
	* gfortran.dg/pr19216.f: Add correct space between brackets and
	dg directive.

From-SVN: r101105
This commit is contained in:
Francois-Xavier Coudert 2005-06-17 00:50:51 +02:00 committed by François-Xavier Coudert
parent b9297522fd
commit 04d9e6bdd3
4 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19216
* gfortran.dg/pr19216.f: Add correct space between brackets and
dg directive.
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/16436

2
gcc/testsuite/gfortran.dg/pr19216.f
View File

@ -1,5 +1,5 @@
! PR libfortran/19216
! {dg-do run}
! { dg-do run }
integer dat(3), i, j
data dat / 3,2,1 /

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19216
* io/list_read.c (eat_separator): No need to call next_record,
even in non-namelist_mode.
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* io/transfer.c (formatted_transfer): Fix typo in error message.

5
libgfortran/io/list_read.c
View File

@ -236,11 +236,6 @@ eat_separator (void)
case '/':
input_complete = 1;
if (!namelist_mode)
{
next_record (0);
at_eol = 1;
}
break;
case '\n':