trans-array.c (gfc_conv_section_startstride): Update assertion to also accept coarrays.

	* trans-array.c (gfc_conv_section_startstride): Update assertion to
	also accept coarrays.

From-SVN: r179680

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 349e96a2cbc3dd3540f8ff94a9db6e43d8fd7b6f..9ad8e12ed408087bbc750d1c3c0c15ce4fbe5706 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
+
+       * trans-array.c (gfc_conv_section_startstride): Update assertion to
+       also accept coarrays.
+
 2011-10-07  Mikael Morin  <mikael.morin@sfr.fr>
 
        * trans-array.c (gfc_conv_section_startstride): Factor common

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 7cc86ba2673bf83da537bf3af056aa513f1869ef..7f4451429690d6de4f4a38ddd69f0f72ede16403 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -3204,7 +3204,8 @@ gfc_conv_section_startstride (gfc_loopinfo * loop, gfc_ss * ss, int dim,
       return;
     }
 
-  gcc_assert (ar->dimen_type[dim] == DIMEN_RANGE);
+  gcc_assert (ar->dimen_type[dim] == DIMEN_RANGE
+             || ar->dimen_type[dim] == DIMEN_THIS_IMAGE);
   desc = info->descriptor;
   start = ar->start[dim];
   end = ar->end[dim];