diff options
| author | Erik Schnetter <schnetter@aei.mpg.de> | 2004-08-19 15:31:37 +0000 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-08-19 17:31:37 +0200 |
| commit | 7551270e1b6232a38f772eb9298ddbe0aa970918 (patch) | |
| tree | 871485f596b59597d459e94b7923a9f6e469f77b /gcc/fortran/iresolve.c | |
| parent | e281c0f884086d2247f9411f676c1f3f9e3058b0 (diff) | |
| download | gcc-7551270e1b6232a38f772eb9298ddbe0aa970918.zip gcc-7551270e1b6232a38f772eb9298ddbe0aa970918.tar.gz gcc-7551270e1b6232a38f772eb9298ddbe0aa970918.tar.bz2 | |
re PR fortran/16946 (sum (array, mask) is not accepted)
fortran/
PR fortran/16946
* check.c (gfc_check_reduction): New function.
(gfc_check_minval_maxval): Removed.
(gfc_check_product): Removed.
(gfc_check_sum): Removed.
* intrinsic.h: Add/remove declarations for these.
* gfortran.h: Add field f3red to union gfc_check_f.
* intrinsic.c (add_sym_3red): New function.
(add_functions): Register maxval, minval, product, and sum intrinsics
through add_sym_3red.
(check_specific): Handle f3red union field.
* iresolve.c: Whitespace change.
testsuite/
PR fortran/16946
* gfortran.dg/reduction.f90: New testcase.
From-SVN: r86255
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 21fd015..bfa51c4 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -882,6 +882,7 @@ gfc_resolve_minloc (gfc_expr * f, gfc_expr * array, gfc_expr * dim, gfc_type_letter (array->ts.type), array->ts.kind); } + void gfc_resolve_minval (gfc_expr * f, gfc_expr * array, gfc_expr * dim, gfc_expr * mask) |