diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 5bd7c27eea5..8cf829af408 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3027,8 +3027,8 @@ mio_expr (gfc_expr **ep) case BT_COMPLEX: gfc_set_model_kind (e->ts.kind); - mio_gmp_real (&e->value.complex.r); - mio_gmp_real (&e->value.complex.i); + mio_gmp_real (&mpc_realref (e->value.complex)); + mio_gmp_real (&mpc_imagref (e->value.complex)); break; case BT_LOGICAL: |