diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-11-12 12:03:42 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-11-12 12:03:42 +0100 |
| commit | abfc73778e24d6e8c407150d8071bc7fed755965 (patch) | |
| tree | 50823ce1528bd20de093a8a4c7090992a05b0ca1 /gcc/fortran/module.c | |
| parent | 3b4adfb357d82d4a83852a02febc008249579c8e (diff) | |
| download | gcc-abfc73778e24d6e8c407150d8071bc7fed755965.zip gcc-abfc73778e24d6e8c407150d8071bc7fed755965.tar.gz gcc-abfc73778e24d6e8c407150d8071bc7fed755965.tar.bz2 | |
re PR fortran/55272 (ICE on passing coarray argument between files)
2012-11-12 Tobias Burnus <burnus@net-b.de>
PR fortran/55272
* module.c (mio_array_spec): Correctly handle coarray
scalars.
2012-11-12 Tobias Burnus <burnus@net-b.de>
PR fortran/55272
* gfortran.dg/coarray_29_1.f90: New.
* gfortran.dg/coarray_29_2.f90: New.
From-SVN: r193429
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 4cfcae4..89c45b7 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -2395,7 +2395,7 @@ mio_array_spec (gfc_array_spec **asp) if (iomode == IO_INPUT && as->corank) as->cotype = (as->type == AS_DEFERRED) ? AS_DEFERRED : AS_EXPLICIT; - if (as->rank > 0) + if (as->rank + as->corank > 0) for (i = 0; i < as->rank + as->corank; i++) { mio_expr (&as->lower[i]); |