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
This commit is contained in:
parent
83584eab1b
commit
95bd9622ab
|
@ -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>
|
2013-04-15 Janne Blomqvist <jb@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/56919
|
PR fortran/56919
|
||||||
|
|
|
@ -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)
|
||||||
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,
|
||||||
"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;
|
||||||
|
|
Loading…
Reference in New Issue