[Bug fortran/95191] [9/10 Regression] Hang in WAIT with a bad ID= value if threading specified

[cvs-commit at gcc dot gnu.org]

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

--- Comment #5 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-9 branch has been updated by Thomas Kथà¤nig
<tkoe...@gcc.gnu.org>:

https://gcc.gnu.org/g:b3b9ee70f3ea73bae3f7d2956172ca9c0a338980

commit r9-8628-gb3b9ee70f3ea73bae3f7d2956172ca9c0a338980
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date:   Sat May 23 19:01:43 2020 +0200

    Fixes a hang on an invalid ID in a WAIT statement.

    gcc/fortran/ChangeLog:

    2020-05-23  Thomas Koenig  <tkoe...@gcc.gnu.org>

            PR libfortran/95191
            * libgfortran.h (libgfortran_error_codes): Add
            LIBERROR_BAD_WAIT_ID.

    libgfortran/ChangeLog:

    2020-05-23  Thomas Koenig  <tkoe...@gcc.gnu.org>

            PR libfortran/95191
            * io/async.c (async_wait_id): Generate error if ID is higher
            than the highest current ID.
            * runtime/error.c (translate_error): Handle LIBERROR_BAD_WAIT_ID.

    libgomp/ChangeLog:

    2020-05-23  Thomas Koenig  <tkoe...@gcc.gnu.org>

            PR libfortran/95191
            * testsuite/libgomp.fortran/async_io_9.f90: New test.

    (cherry picked from commit 8df7ee67f6fdc780e9453f2baa8d1bf62c000761)