diff options
Diffstat (limited to 'libgfortran/io/list_read.c')
| -rw-r--r-- | libgfortran/io/list_read.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index a42f12b72692..f258c9d92499 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -267,7 +267,7 @@ next_char_internal (st_parameter_dt *dtp) /* Get the next character and handle end-of-record conditions. */ - if (dtp->common.unit) /* Check for kind=4 internal unit. */ + if (is_char4_unit(dtp)) /* Check for kind=4 internal unit. */ length = sread (dtp->u.p.current_unit->s, &c, 1); else { @@ -390,7 +390,7 @@ eat_spaces (st_parameter_dt *dtp) gfc_offset offset = stell (dtp->u.p.current_unit->s); gfc_offset i; - if (dtp->common.unit) /* kind=4 */ + if (is_char4_unit(dtp)) /* kind=4 */ { for (i = 0; i < dtp->u.p.current_unit->bytes_left; i++) { |