gcc/testsuite/gfortran.dg/coarray_sync_memory.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original -fcoarray=lib" }
   3 !
   4 ! Coarray sync memory managed by the external library
   5 !
   6 implicit none
   7 integer :: stat
   8 character(len=42) :: msg
   9 sync memory
  10 sync memory(stat=stat)
  11 sync memory(errmsg=msg)
  12 sync memory(errmsg=msg, stat=stat)
  13 end
  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" } }