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

re PR fortran/50420 ([Coarray] lcobound doesn't accept coarray subcomponents) 

PR fortran/50420
	* trans-intrinsic.c (walk_coarray): Change AR_ELEMENT to AR_SECTION.

	PR fortran/50420
	* trans-intrinsic.c (walk_coarray): Use gfc_walk_array_ref for
	the scalarization chain initialization.

From-SVN: r180147
This commit is contained in:
Mikael Morin 2011-10-18 15:02:38 +00:00
parent 411e1a0f53
commit 6cab5e07b0
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/fortran/ChangeLog
View File

@ -1,3 +1,12 @@
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/50420
* trans-intrinsic.c (walk_coarray): Change AR_ELEMENT to AR_SECTION.
PR fortran/50420
* trans-intrinsic.c (walk_coarray): Use gfc_walk_array_ref for
the scalarization chain initialization.
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/50420

7
gcc/fortran/trans-intrinsic.c
View File

@ -940,8 +940,6 @@ walk_coarray (gfc_expr *e)
{
gfc_ref *ref;
ss = gfc_get_array_ss (gfc_ss_terminator, e, 0, GFC_SS_SECTION);
ref = e->ref;
while (ref)
{
@ -953,8 +951,9 @@ walk_coarray (gfc_expr *e)
}
gcc_assert (ref != NULL);
ref->u.ar.type = AR_FULL;
ss->data.info.ref = ref;
if (ref->u.ar.type == AR_ELEMENT)
ref->u.ar.type = AR_SECTION;
ss = gfc_reverse_ss (gfc_walk_array_ref (ss, e, ref));
}
return ss;