[Bug libfortran/81195] SPEC CPU2017 621.wrf_s failure with 40+ openmp threads

[wilson at gcc dot gnu.org]

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

--- Comment #9 from Jim Wilson <wilson at gcc dot gnu.org> ---
Author: wilson
Date: Mon Jun 26 21:40:47 2017
New Revision: 249667

URL: https://gcc.gnu.org/viewcvs?rev=249667&root=gcc&view=rev
Log:
Fix for SPEC CPU2017 621.wrf_s failure, add missing locking code.

        libgfortran/
        PR libfortran/81195
        * io/unit.c (get_unit): Call __gthread_mutex_lock before newunit_stack
        and newunit_tos references.  Call __gthread_mutex_unlock afterward.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/unit.c