]> git.ipfire.org Git - thirdparty/gcc.git/commit - gcc/fortran/intrinsic.cc
re PR fortran/14928 (minloc intrinsic does not understand mask)
authorTobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Mon, 14 Jun 2004 15:56:50 +0000 (17:56 +0200)
committerTobias Schlüter <tobi@gcc.gnu.org>
Mon, 14 Jun 2004 15:56:50 +0000 (17:56 +0200)
commitf3207b37d34107210fda3f7b3bc999ac7537d7c0
tree2014e371902c1f99faab8834b1a47caeb1ff29e5
parent84b1d821501a5acd4298b3561e951333df771cd8
re PR fortran/14928 (minloc intrinsic does not understand mask)

fortran/
2004-06-05  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
        Andrew Vaught <andyv@firstinter.net>

PR fortran/14928
* gfortran.h (gfc_check_f): Add new field f3ml.
* check.c (gfc_check_minloc_maxloc): Take argument list instead
of individual arguments, reorder if necessary.
* intrinsic.h (gfc_check_minloc_maxloc): ... adapt prototype.
* intrinsic.c (add_sym_3ml): New function.
(add_functions): Change to add_sym_3ml for MINLOC, MAXLOC.
(check_specific): Catch special case MINLOC, MAXLOC.

testsuite/
PR fortran/14928
* gfortran.fortran-torture/compile/mloc.f90: New test.

Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83111
gcc/fortran/ChangeLog
gcc/fortran/check.c
gcc/fortran/gfortran.h
gcc/fortran/intrinsic.c
gcc/fortran/intrinsic.h
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.fortran-torture/compile/mloc.f90 [new file with mode: 0644]