===================================================================
@@ -929,7 +929,7 @@ retry:
// only be held by other threads waiting for conversion, and
// they, like us, drop it quickly without blocking.
_Jv_MutexLock(&(hl->si.mutex));
- JvAssert(he -> address == address | LOCKED );
+ JvAssert(he -> address == (address | LOCKED));
release_set(&(he -> address), (address | REQUEST_CONVERSION |
HEAVY));
// release lock on he
LOG(REQ_CONV, (address | REQUEST_CONVERSION | HEAVY), self);
===================================================================
@@ -77,6 +77,9 @@ void _gfortran_caf_sync_images (int, int
/* FIXME: The CRITICAL functions should be removed;
the functionality is better represented using Coarray's lock
feature. */
+void _gfortran_caf_critical (void);
+void _gfortran_caf_end_critical (void);
+
void _gfortran_caf_critical (void) { }
void _gfortran_caf_end_critical (void) { }