2 ! { dg-options "-fdump-tree-original -fcoarray=lib" }
4 ! Coarray sync memory managed by the external library
8 character(len
=42) :: msg
10 sync
memory(stat
=stat
)
11 sync
memory(errmsg
=msg
)
12 sync
memory(errmsg
=msg
, stat
=stat
)
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" } }