diff options
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 3e658b8..b24a2f2 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -1430,7 +1430,7 @@ build_dt (tree function, gfc_code * code) dt->advance); if (dt->format_expr) - mask |= set_string (&block, &post_block, var, IOPARM_dt_format, + mask |= set_string (&block, &post_end_block, var, IOPARM_dt_format, dt->format_expr); if (dt->format_label) |