gcc/testsuite/gfortran.dg/coarray_2.f90

   1 ! { dg-do run }
   2 ! { dg-shouldfail "error stop" }
   3 !
   4 ! Coarray support
   5 ! PR fortran/18918
   6
   7 implicit none
   8 integer :: n
   9 character(len=30) :: str
  10 critical
  11 end critical
  12 myCr: critical
  13 end critical myCr
  14   sync all
  15   sync all ( )
  16   n = 5
  17   sync all (stat=n)
  18   if (n /= 0) call abort()
  19   n = 5
  20   sync all (stat=n,errmsg=str)
  21   if (n /= 0) call abort()
  22   sync all (errmsg=str)
  23
  24   sync memory
  25   sync memory ( )
  26   n = 5
  27   sync memory (stat=n)
  28   if (n /= 0) call abort()
  29   n = 5
  30   sync memory (errmsg=str,stat=n)
  31   if (n /= 0) call abort()
  32   sync memory (errmsg=str)
  33
  34 sync images (*, stat=n)
  35 sync images (1, errmsg=str)
  36 sync images ([1],errmsg=str,stat=n)
  37
  38 sync images (*)
  39 sync images (1)
  40 sync images ([1])
  41
  42 if (num_images() /= 1) call abort()
  43 error stop 'stop'
  44 end
  45
  46 ! { dg-output "ERROR STOP stop" }