gcc/testsuite/gfortran.dg/goacc/common-block-1.f90

   1 ! Test data clauses involving common blocks and common block data.
   2 ! Specifically, validates early matching errors.
   3
   4 subroutine subtest
   5   implicit none
   6   integer, parameter :: n = 10
   7   integer a(n), b(n), c, d(n), e
   8   real*4 x(n), y(n), z, w(n), v
   9   common /blockA/ a, c, x
  10   common /blockB/ b, y, z
  11   !$acc declare link(/blockA/, /blockB/, e, v)
  12 end subroutine subtest
  13
  14 program test
  15   implicit none
  16   integer, parameter :: n = 10
  17   integer a(n), b(n), c, d(n), e
  18   real*4 x(n), y(n), z, w(n), v
  19   common /blockA/ a, c, x
  20   common /blockB/ b, y, z
  21
  22   !$acc declare link(/blockA/, /blockB/, e, v)
  23
  24   !$acc data copy(/blockA/, /blockB/, e, v)
  25   !$acc end data
  26
  27   !$acc data copyin(/blockA/, /blockB/, e, v)
  28   !$acc end data
  29
  30   !$acc data copyout(/blockA/, /blockB/, e, v)
  31   !$acc end data
  32
  33   !$acc data create(/blockA/, /blockB/, e, v)
  34   !$acc end data
  35
  36   !$acc data copyout(/blockA/, /blockB/, e, v)
  37   !$acc end data
  38
  39   !$acc data pcopy(/blockA/, /blockB/, e, v)
  40   !$acc end data
  41
  42   !$acc data pcopyin(/blockA/, /blockB/, e, v)
  43   !$acc end data
  44
  45   !$acc data pcopyout(/blockA/, /blockB/, e, v)
  46   !$acc end data
  47
  48   !$acc data pcreate(/blockA/, /blockB/, e, v)
  49   !$acc end data
  50
  51   !$acc data pcopyout(/blockA/, /blockB/, e, v)
  52   !$acc end data
  53
  54   !$acc parallel private(/blockA/, /blockB/, e, v)
  55   !$acc end parallel
  56
  57   !$acc parallel firstprivate(/blockA/, /blockB/, e, v)
  58   !$acc update device(/blockA/)
  59   !$acc update self(/blockB/, v)
  60   !$acc update host(/blockA/, e, /blockB/)
  61   !$acc end parallel
  62
  63   !$acc enter data pcopyin(/blockA/, /blockB/, e, v)
  64   !$acc exit data delete(/blockA/, /blockB/, e, v)
  65
  66
  67   ! No /block/ permitted in present and deviceptr:
  68
  69   !$acc data present(/blockA/, /blockB/, e, v) ! { dg-error "Syntax error in OpenMP variable list" }
  70   !$acc end data ! { dg-error "Unexpected ..ACC END DATA statement" }
  71
  72   !$acc data deviceptr(/blockA/, /blockB/, e, v) ! { dg-error "Syntax error in OpenMP variable list" }
  73   !$acc end data ! { dg-error "Unexpected ..ACC END DATA statement" }
  74 end program test