diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-15 19:48:08 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-12-15 19:48:08 +0000 |
| commit | c1f61f139695bc18ddd7c9a665f6e814ac0732d5 (patch) | |
| tree | 63df4900656cfb10438aaf519ee7138c8c3c9c3f /gcc/fortran/trans-io.c | |
| parent | d3682f91c77b6d9612bf6ca08eb5449459979438 (diff) | |
| download | gcc-c1f61f139695bc18ddd7c9a665f6e814ac0732d5.tar.gz | |
2006-12-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/30200
* trans-io.c (build_dt): Move post block for format_expr to end.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119940 138bc75d-0d04-0410-961f-82ee72b054a4
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 3e658b8c00c..b24a2f262bf 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) |