[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 #6 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:7d92901c878c6c00ada7f9cee8825f03ad4722f1

commit r15-5654-g7d92901c878c6c00ada7f9cee8825f03ad4722f1
Author: Steve Kargl <kar...@comcast.net>
Date:   Sun Nov 24 18:26:03 2024 -0800

    Fortran: Check IMPURE in BLOCK inside DO CONCURRENT.

            PR fortran/117765

    gcc/fortran/ChangeLog:

            * resolve.cc (check_pure_function): Check the stack to
            see if the function is in a nested BLOCK and, if that
            block is inside a DO_CONCURRENT, issue an error.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/impure_fcn_do_concurrent.f90: New test.