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

--- Comment #12 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Andre Vehreschild <ve...@gcc.gnu.org>:

https://gcc.gnu.org/g:9ebd7c3b978dba986c44cbc61f94cd97f381cc62

commit r16-77-g9ebd7c3b978dba986c44cbc61f94cd97f381cc62
Author: Andre Vehreschild <ve...@gcc.gnu.org>
Date:   Tue Apr 1 12:17:43 2025 +0200

    Fortran: Add team-support to this_image [PR87326]

    This_image() no longer has a distance formal argument, but a team one.
    The source of the distance argument could not be identified, i.e.
    whether it came from a TS or standard draft.  To implement only the
    standard it is removed.  Besides being defined, it was not used anyway.

            PR fortran/87326

    gcc/fortran/ChangeLog:

            * check.cc (gfc_check_this_image): Check the three different
            parameter lists possible for this_image and sort them correctly.
            * gfortran.texi: Update documentation on this_image's API.
            * intrinsic.cc (add_functions): Update this_image's signature.
            (check_specific): Add specific check for this_image.
            * intrinsic.h (gfc_check_this_image): Change to flexible
            argument list.
            * intrinsic.texi: Update documentation on this_image().
            * iresolve.cc (gfc_resolve_this_image): Resolve the different
            arguments.
            * simplify.cc (gfc_simplify_this_image): Simplify the simplify
            routine.
            * trans-decl.cc (gfc_build_builtin_function_decls): Update
            signature of this_image.
            * trans-expr.cc (gfc_caf_get_image_index): Use correct signature
            of this_image.
            * trans-intrinsic.cc (trans_this_image): Adapt to correct
            signature.

    libgfortran/ChangeLog:

            * caf/libcaf.h (_gfortran_caf_this_image): Correct prototype.
            * caf/single.c (struct caf_single_team): Add new_index of image.
            (_gfortran_caf_this_image): Return the image index in the given
team.
            (_gfortran_caf_form_team): Set new_index in team structure.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/coarray_10.f90: Update error messages.
            * gfortran.dg/coarray_lib_this_image_1.f90: Same.
            * gfortran.dg/coarray_lib_this_image_2.f90: Same.
            * gfortran.dg/coarray_this_image_1.f90: Add more tests and
            remove incorrect ones.
            * gfortran.dg/coarray_this_image_2.f90: Test more features.
            * gfortran.dg/coarray_this_image_3.f90: New test.

Reply via email to