gcc/testsuite/gfortran.dg/coarray/sync_1.f90

   1 ! { dg-do run }
   2 !
   3 ! Coarray support
   4 ! PR fortran/18918
   5
   6 implicit none
   7 integer :: n
   8 character(len=30) :: str
   9 critical
  10 end critical
  11 myCr: critical
  12 end critical myCr
  13
  14 !
  15 ! Test SYNC ALL
  16 !
  17 sync all
  18 sync all ( )
  19 sync all (errmsg=str)
  20
  21 n = 5
  22 sync all (stat=n)
  23 if (n /= 0) STOP 1
  24
  25 n = 5
  26 sync all (stat=n,errmsg=str)
  27 if (n /= 0) STOP 2
  28
  29
  30 !
  31 ! Test SYNC MEMORY
  32 !
  33 sync memory
  34 sync memory ( )
  35 sync memory (errmsg=str)
  36
  37 n = 5
  38 sync memory (stat=n)
  39 if (n /= 0) STOP 3
  40
  41 n = 5
  42 sync memory (errmsg=str,stat=n)
  43 if (n /= 0) STOP 4
  44
  45
  46 !
  47 ! Test SYNC IMAGES
  48 !
  49 sync images (*)
  50 if (this_image() == 1) then
  51     sync images (1)
  52     sync images (1, errmsg=str)
  53     sync images ([1])
  54 end if
  55
  56 n = 5
  57 sync images (*, stat=n)
  58 if (n /= 0) STOP 5
  59
  60 n = 5
  61 sync images (*,errmsg=str,stat=n)
  62 if (n /= 0) STOP 6
  63
  64 end