1! { dg-do compile } 2! { dg-options "-fdump-tree-original -fcoarray=lib" } 3! 4! Coarray sync memory managed by the external library 5! 6implicit none 7integer :: stat 8character(len=42) :: msg 9sync memory 10sync memory(stat=stat) 11sync memory(errmsg=msg) 12sync memory(errmsg=msg, stat=stat) 13end 14 15! { dg-final { scan-tree-dump-times "_gfortran_caf_sync_memory \\(0B, 0B, 0\\);" 1 "original" } } 16! { dg-final { scan-tree-dump-times "_gfortran_caf_sync_memory \\(&stat, 0B, 0\\);" 1 "original" } } 17! { dg-final { scan-tree-dump-times "_gfortran_caf_sync_memory \\(0B, &&msg, 42\\);" 1 "original" } } 18! { dg-final { scan-tree-dump-times "_gfortran_caf_sync_memory \\(&stat, &&msg, 42\\);" 1 "original" } } 19