Skip to content

R
riscv-gcc-1
Commit b98e3159 by Tobias Schlüter Committed by Tobias Schlüter
Options

check.c (gfc_check_minloc_maxloc, [...]): Don't call dim_range_check on… 

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

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

From-SVN: r111108
parent cc26ad97
Showing with 7 additions and 2 deletions
gcc/fortran/ChangeLog
2006-02-15 Tobias Schlter <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
......
gcc/fortran/check.c
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment