OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Thomas Koenig 2015-05-12 06:37:43 +00:00
parent 3591a1233e
commit 9b7df66f80
3 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View File

@ -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

5
gcc/fortran/array.c
View File

@ -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;
}

2
gcc/fortran/gfortran.h
View File

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