https://gcc.gnu.org/bugzilla/show_bug.cgi?id=122787
Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
Resolution|--- |FIXED
--- Comment #6 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Fixed, the coarray/lock_1.f90 test was adjusted to properly handle a
non-blocking.
commit be90cfa22cb4e3cea7ffb4ca429829381369a8d2
Author: Jerry DeLisle <[email protected]>
Date: Sat Feb 14 15:46:44 2026 -0800
Fortran: Adjust test to work with multiple images.
The testcase would fail occasionally with multiple images because the
use of acquired_lock is a non-blocking LOCK. Only UNLOCK this if the
LOCK was acquired. Keep track of the loop count and bail out if the
limit is reached.
During testing it was observed that the loop count could go as high as
33 times depending on system conditions, running the test outside the
testsuite 1000's of times.
PR fortran/121429
gcc/testsuite/ChangeLog:
* gfortran.dg/coarray/lock_1.f90: Updated.
