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

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