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