diff options
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 42e8e00..fb8de0e 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -2203,6 +2203,9 @@ mio_array_spec (gfc_array_spec **asp) mio_integer (&as->corank); as->type = MIO_NAME (array_type) (as->type, array_spec_types); + if (iomode == IO_INPUT && as->corank) + as->cotype = (as->type == AS_DEFERRED) ? AS_DEFERRED : AS_EXPLICIT; + for (i = 0; i < as->rank + as->corank; i++) { mio_expr (&as->lower[i]); |