[Bug fortran/29600] [F03] MINLOC and MAXLOC take an optional KIND argument

tkoenig at gcc dot gnu.org gcc-bugzilla@gcc.gnu.org
Sat Nov 4 13:21:00 GMT 2017


https://gcc.gnu.org/bugzilla/show_bug.cgi?id=29600

--- Comment #18 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Author: tkoenig
Date: Sat Nov  4 13:20:32 2017
New Revision: 254405

URL: https://gcc.gnu.org/viewcvs?rev=254405&root=gcc&view=rev
Log:
2017-11-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

        PR fortran/29600
        * gfortran.h (gfc_check_f): Replace fm3l with fm4l.
        * intrinsic.h (gfc_resolve_maxloc): Add gfc_expr * to argument
        list in protoytpe.
        (gfc_resolve_minloc): Likewise.
        * check.c (gfc_check_minloc_maxloc): Handle kind argument.
        * intrinsic.c (add_sym_3_ml): Rename to
        (add_sym_4_ml): and handle kind argument.
        (add_function): Replace add_sym_3ml with add_sym_4ml and add
        extra arguments for maxloc and minloc.
        (check_specific): Change use of check.f3ml with check.f4ml.
        * iresolve.c (gfc_resolve_maxloc): Handle kind argument. If
        the kind is smaller than the smallest library version available,
        use gfc_default_integer_kind and convert afterwards.
        (gfc_resolve_minloc): Likewise.

2017-11-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

        PR fortran/29600
        * gfortran.dg/minmaxloc_8.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/minmaxloc_8.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/check.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/intrinsic.c
    trunk/gcc/fortran/intrinsic.h
    trunk/gcc/fortran/iresolve.c
    trunk/gcc/testsuite/ChangeLog


More information about the Gcc-bugs mailing list