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."

Reply via email to