re PR fortran/66041 (Matmul ICE)
2015-05-12 Thomas Koenig <tkoenig@gcc.gnu.org> PR fortran/66041 PR fortran/37131 * gfortran.h (gfc_array_spec): Add field resolved. * array.c (gfc_resolve_array_spec): Resolve array spec only once. From-SVN: r223031
This commit is contained in:
parent
3591a1233e
commit
9b7df66f80
|
@ -1,3 +1,11 @@
|
|||
2015-05-12 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||
|
||||
PR fortran/66041
|
||||
PR fortran/37131
|
||||
* gfortran.h (gfc_array_spec): Add field resolved.
|
||||
* array.c (gfc_resolve_array_spec): Resolve array spec
|
||||
only once.
|
||||
|
||||
2015-05-11 Mikael Morin <mikael@gcc.gnu.org>
|
||||
|
||||
PR fortran/66100
|
||||
|
|
|
@ -338,6 +338,9 @@ gfc_resolve_array_spec (gfc_array_spec *as, int check_constant)
|
|||
if (as == NULL)
|
||||
return true;
|
||||
|
||||
if (as->resolved)
|
||||
return true;
|
||||
|
||||
for (i = 0; i < as->rank + as->corank; i++)
|
||||
{
|
||||
e = as->lower[i];
|
||||
|
@ -364,6 +367,8 @@ gfc_resolve_array_spec (gfc_array_spec *as, int check_constant)
|
|||
}
|
||||
}
|
||||
|
||||
as->resolved = true;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
|
|
|
@ -1002,6 +1002,8 @@ typedef struct
|
|||
bool cp_was_assumed; /* AS_ASSUMED_SIZE cp arrays are converted to
|
||||
AS_EXPLICIT, but we want to remember that we
|
||||
did this. */
|
||||
|
||||
bool resolved;
|
||||
}
|
||||
gfc_array_spec;
|
||||
|
||||
|
|
Loading…
Reference in New Issue