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

dump-parse-tree.c (gfc_show_array_ref): Print colon only for ranges when dumping array references. 

* dump-parse-tree.c (gfc_show_array_ref): Print colon only
for ranges when dumping array references.

From-SVN: r81866
This commit is contained in:
Tobias Schlüter 2004-05-15 01:11:46 +02:00 committed by Tobias Schlüter
parent cb44ab824b
commit fb89e8bd06
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* dump-parse-tree.c (gfc_show_array_ref): Print colon only
for ranges when dumping array references.
2004-05-14 Victor Leikehman <lei@haifasphere.co.il>
* decl.c (variable_decl): Always apply default initializer.

24
gcc/fortran/dump-parse-tree.c
View File

@ -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)