FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

check.c (gfc_check_minloc_maxloc, [...]): Don't call dim_range_check on not-present optional dim argument.

Browse source 
* check.c (gfc_check_minloc_maxloc, check_reduction): Don't call
	dim_range_check on not-present optional dim argument.

From-SVN: r111108
This commit is contained in:
Tobias Schlüter 2006-02-15 12:02:21 +01:00 • committed by Tobias Schlüter
parent cc26ad97f0
commit b98e315984
2 changed files with 7 additions and 2 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 @@
2006-02-15 Tobias Schl<68>üter <tobias.schlueter@physik.uni-muenchen.de>
* check.c (gfc_check_minloc_maxloc, check_reduction): Don't call
dim_range_check on not-present optional dim argument.
2006-02-15 Jakub Jelinek <jakub@redhat.com>
PR libgomp/25938

4
gcc/fortran/check.c
View file

@ -1576,7 +1576,7 @@ gfc_check_minloc_maxloc (gfc_actual_arglist * ap)
if (dim_check (d, 1, 1) == FAILURE)
return FAILURE;
if (dim_rank_check (d, a, 0) == FAILURE)
if (d && dim_rank_check (d, a, 0) == FAILURE)
return FAILURE;
if (m != NULL && type_check (m, 2, BT_LOGICAL) == FAILURE)
@ -1633,7 +1633,7 @@ check_reduction (gfc_actual_arglist * ap)
if (dim_check (d, 1, 1) == FAILURE)
return FAILURE;
if (dim_rank_check (d, a, 0) == FAILURE)
if (d && dim_rank_check (d, a, 0) == FAILURE)
return FAILURE;
if (m != NULL && type_check (m, 2, BT_LOGICAL) == FAILURE)