X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Ftrans-array.c;h=f4d8a8543272727c7768761a3149b0cad6d768db;hp=8359af2d9b25b8fca23fcf5b87dc731e9d413034;hb=a82b2774dadbf0821c50a66599694b2b0ac0a2c8;hpb=73ce7954f95f51289691fa2bb4bb9a9f89740d31

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index 8359af2d9b2..f4d8a854327 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -3347,9 +3347,11 @@ done:
 	case GFC_SS_FUNCTION:
 	  for (n = 0; n < ss->data.info.dimen; n++)
 	    {
-	      ss->data.info.start[n] = gfc_index_zero_node;
-	      ss->data.info.end[n] = gfc_index_zero_node;
-	      ss->data.info.stride[n] = gfc_index_one_node;
+	      int dim = ss->data.info.dim[n];
+
+	      ss->data.info.start[dim]  = gfc_index_zero_node;
+	      ss->data.info.end[dim]    = gfc_index_zero_node;
+	      ss->data.info.stride[dim] = gfc_index_one_node;
 	    }
 	  break;