Commit 95bd9622 by Tobias Burnus Committed by Tobias Burnus

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
parent 83584eab
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> 2013-04-15 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/56919 PR fortran/56919
......
...@@ -393,7 +393,7 @@ static int ...@@ -393,7 +393,7 @@ static int
finish_separator (st_parameter_dt *dtp) finish_separator (st_parameter_dt *dtp)
{ {
int c; int c;
int err; int err = LIBERROR_OK;
restart: restart:
eat_spaces (dtp); eat_spaces (dtp);
...@@ -433,7 +433,7 @@ finish_separator (st_parameter_dt *dtp) ...@@ -433,7 +433,7 @@ finish_separator (st_parameter_dt *dtp)
return err; return err;
goto restart; goto restart;
} }
/* Fall through. */
default: default:
unget_char (dtp, c); unget_char (dtp, c);
break; break;
...@@ -2788,6 +2788,7 @@ nml_get_obj_data (st_parameter_dt *dtp, namelist_info **pprev_nl, ...@@ -2788,6 +2788,7 @@ nml_get_obj_data (st_parameter_dt *dtp, namelist_info **pprev_nl,
"namelist not terminated with / or &end"); "namelist not terminated with / or &end");
goto nml_err_ret; goto nml_err_ret;
} }
/* Fall through. */
case '/': case '/':
dtp->u.p.input_complete = 1; dtp->u.p.input_complete = 1;
return true; return true;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment