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)

Browse Source 
PR fortran/50420
	* trans-array.c (gfc_walk_array_ref): Allow zero rank arrays
	if they are coarrays.

From-SVN: r180145
This commit is contained in:
Mikael Morin 2011-10-18 14:55:48 +00:00
parent 42ac5ee128
commit 6b81e94de1
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
PR fortran/50420
* trans-array.c (gfc_walk_array_ref): Allow zero rank arrays
if they are coarrays.
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.h (gfc_walk_array_ref): New prototype.

6
gcc/fortran/trans-array.c
View File

@ -7700,8 +7700,10 @@ gfc_walk_array_ref (gfc_ss * ss, gfc_expr * expr, gfc_ref * ref)
gcc_unreachable ();
}
}
/* We should have at least one non-elemental dimension. */
gcc_assert (newss->data.info.dimen > 0);
/* We should have at least one non-elemental dimension,
unless we are creating a descriptor for a (scalar) coarray. */
gcc_assert (newss->data.info.dimen > 0
|| newss->data.info.ref->u.ar.as->corank > 0);
ss = newss;
break;