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

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:
Tobias Burnus 2013-04-15 14:45:06 +02:00 committed by Tobias Burnus
parent 83584eab1b
commit 95bd9622ab
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -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

5
libgfortran/io/list_read.c
View File

@ -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;