Defect/bug report

The implementation of lock and unlock violates the F2008+ standard, in that it should return STAT=STAT_LOCKED/UNLOCKED for LOCK(..., STAT=...) and UNLOCK(..., STAT=...), respectively.

Furthermore do I doubt that lock() implements the F2008+ standard correctly, in that it should wait that a locked lock becomes available. I assume at first glance at the code, that it doesn't.

There also is code that seems to disallow locking on self, which should be possible:
if(value == caf_this_image && image_index == caf_this_image) goto stat_error;

Lock and unlock issue undocumented stat-codes on failure.

This applies to all version of opencoarray.

This is merely a reminder to myself to implement it.