list_read.c (finish_separator): Initialize variable.

2013-04-15  Tobias Burnus  <burnus@net-b.de>

        * list_read.c (finish_separator): Initialize variable.

From-SVN: r197969

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 55f6dd7a5336136976de8ff2967f32b50fc78072..25219aae7db79dc53c6f31c9002f9f2869be12c2 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2013-04-15  Tobias Burnus  <burnus@net-b.de>
+
+       * list_read.c (finish_separator): Initialize variable.
+
 2013-04-15  Janne Blomqvist  <jb@gcc.gnu.org>
 
        PR fortran/56919

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index b29fdcd23067806822513a218ed6237f22adc9d1..c8a1bdfc9d9e45380200d12c67abdc46af1b53a1 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -393,7 +393,7 @@ static int
 finish_separator (st_parameter_dt *dtp)
 {
   int c;
-  int err;
+  int err = LIBERROR_OK;
 
  restart:
   eat_spaces (dtp);
@@ -433,7 +433,7 @@ finish_separator (st_parameter_dt *dtp)
            return err;
          goto restart;
        }
-
+      /* Fall through.  */
     default:
       unget_char (dtp, c);
       break;
@@ -2788,6 +2788,7 @@ nml_get_obj_data (st_parameter_dt *dtp, namelist_info **pprev_nl,
                    "namelist not terminated with / or &end");
          goto nml_err_ret;
        }
+      /* Fall through.  */
     case '/':
       dtp->u.p.input_complete = 1;
       return true;