OSDN Git Service

PR libfortran/19216
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 16 Jun 2005 22:50:51 +0000 (22:50 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 16 Jun 2005 22:50:51 +0000 (22:50 +0000)
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101105 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/pr19216.f
libgfortran/ChangeLog
libgfortran/io/list_read.c

index f03b329..e0a27c5 100644 (file)
@@ -1,5 +1,11 @@
 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
        * gfortran.dg/g77/f77-edit-t-in.f: Not XFAIL-ed any more.
 
index 966d893..76c3938 100644 (file)
@@ -1,5 +1,5 @@
 ! PR libfortran/19216
-! {dg-do run}
+! { dg-do run }
        integer dat(3), i, j
        data dat / 3,2,1 /
 
index 2637fb5..e8033be 100644 (file)
@@ -1,5 +1,11 @@
 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.
 
 2005-06-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
index 7b0d25f..0a75a98 100644 (file)
@@ -236,11 +236,6 @@ eat_separator (void)
 
     case '/':
       input_complete = 1;
-      if (!namelist_mode)
-       {
-         next_record (0);
-         at_eol = 1;
-       }
       break;
 
     case '\n':