[Bug fortran/117765] Impure function within a BLOCK construct within a DO CONCURRENT

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

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

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

https://gcc.gnu.org/g:30078cb0cc5e19d3de55d218ae500d59a21e7537

commit r15-5767-g30078cb0cc5e19d3de55d218ae500d59a21e7537
Author: Steven G. Kargl <kar...@comcast.net>
Date:   Thu Nov 28 13:37:02 2024 -0800

    Fortran: Check for impure subroutine.

            PR fortran/117765

    gcc/fortran/ChangeLog:

            * resolve.cc (pure_subroutine): Check for an impure subroutine
            call in a BLOCK construct nested within a DO CONCURRENT block.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/impure_fcn_do_concurrent.f90: Update test to catch
            calls to an impure subroutine.