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