re PR fortran/16946 (sum (array, mask) is not accepted)
authorErik Schnetter <schnetter@aei.mpg.de>
Thu, 19 Aug 2004 15:31:37 +0000 (15:31 +0000)
committerTobias Schlüter <tobi@gcc.gnu.org>
Thu, 19 Aug 2004 15:31:37 +0000 (17:31 +0200)
commit7551270e1b6232a38f772eb9298ddbe0aa970918
tree871485f596b59597d459e94b7923a9f6e469f77b
parente281c0f884086d2247f9411f676c1f3f9e3058b0
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
gcc/fortran/check.c
gcc/fortran/gfortran.h
gcc/fortran/intrinsic.c
gcc/fortran/intrinsic.h
gcc/fortran/iresolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/reduction.f90 [new file with mode: 0644]