[Bug fortran/55272] [4.8 Regression] ICE on passing coarray argument between files

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55272



Tobias Burnus <burnus at gcc dot gnu.org> changed:



           What    |Removed                     |Added

----------------------------------------------------------------------------

           Keywords|                            |ice-on-valid-code

   Target Milestone|---                         |4.8.0



--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-11-12 
09:21:16 UTC ---

The culprit seems to be Rev. 189881.



Untested patch:



--- module.c    (Revision 193396)

+++ module.c    (Arbeitskopie)

@@ -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]);