* dump-parse-tree.c (gfc_show_array_ref): Print colon only

for ranges when dumping array references.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81866 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 17 insertions, 7 deletions

diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c
index 31fdf0ba121..5f1db22689b 100644
--- a/gcc/fortran/dump-parse-tree.c
+++ b/gcc/fortran/dump-parse-tree.c
@@ -183,18 +183,28 @@ gfc_show_array_ref (gfc_array_ref * ar)
     case AR_SECTION:
       for (i = 0; i < ar->dimen; i++)
 	{
+	  /* There are two types of array sections: either the
+	     elements are identified by an integer array ('vector'),
+	     or by an index range. In the former case we only have to
+	     print the start expression which contains the vector, in
+	     the latter case we have to print any of lower and upper
+	     bound and the stride, if they're present.  */
+  
 	  if (ar->start[i] != NULL)
 	    gfc_show_expr (ar->start[i]);
 
-	  gfc_status_char (':');
-
-	  if (ar->end[i] != NULL)
-	    gfc_show_expr (ar->end[i]);
-
-	  if (ar->stride[i] != NULL)
+	  if (ar->dimen_type[i] == DIMEN_RANGE)
 	    {
 	      gfc_status_char (':');
-	      gfc_show_expr (ar->stride[i]);
+
+	      if (ar->end[i] != NULL)
+		gfc_show_expr (ar->end[i]);
+
+	      if (ar->stride[i] != NULL)
+		{
+		  gfc_status_char (':');
+		  gfc_show_expr (ar->stride[i]);
+		}
 	    }
 
 	  if (i != ar->dimen - 1)