call atomic_fetch_and(caf, 22_16, var, stat=stat)
1Error: Integer kind 16 at (1) not available FAIL: gfortran.dg/coarray_atomic_4.f90 -O (test for excess errors) Andreas. -- Andreas Schwab, [email protected] GPG Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5 "And now for something completely different."
