mirror of git://gcc.gnu.org/git/gcc.git
parent
4b6903ec2f
commit
420aa7b82c
|
|
@ -1371,7 +1371,7 @@ next_record_w (int done)
|
|||
}
|
||||
|
||||
if (sfree (current_unit->s) == FAILURE)
|
||||
goto io_error;
|
||||
goto io_error;
|
||||
|
||||
break;
|
||||
|
||||
|
|
@ -1698,4 +1698,3 @@ export_proto(st_set_nml_var);
|
|||
extern void st_set_nml_var_dim (GFC_INTEGER_4, GFC_INTEGER_4,
|
||||
GFC_INTEGER_4 ,GFC_INTEGER_4);
|
||||
export_proto(st_set_nml_var_dim);
|
||||
|
||||
|
|
|
|||
|
|
@ -1617,4 +1617,3 @@ namelist_write (void)
|
|||
}
|
||||
|
||||
#undef NML_DIGITS
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue