! Test data clauses involving common blocks and common block data.
! Specifically, validates early matching errors.

subroutine subtest
  implicit none
  integer, parameter :: n = 10
  integer a(n), b(n), c, d(n), e
  real*4 x(n), y(n), z, w(n), v
  common /blockA/ a, c, x
  common /blockB/ b, y, z
  !$acc declare link(/blockA/, /blockB/, e, v)
end subroutine subtest

program test
  implicit none
  integer, parameter :: n = 10
  integer a(n), b(n), c, d(n), e
  real*4 x(n), y(n), z, w(n), v
  common /blockA/ a, c, x
  common /blockB/ b, y, z

  !$acc declare link(/blockA/, /blockB/, e, v)

  !$acc data copy(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data copyin(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data copyout(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data create(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data copyout(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data pcopy(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data pcopyin(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data pcopyout(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data pcreate(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data pcopyout(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc data no_create(/blockA/, /blockB/, e, v)
  !$acc end data

  !$acc parallel private(/blockA/, /blockB/, e, v)
  !$acc end parallel

  !$acc parallel firstprivate(/blockA/, /blockB/, e, v)
  !$acc end parallel

  !$acc serial private(/blockA/, /blockB/, e, v)
  !$acc end serial

  !$acc serial firstprivate(/blockA/, /blockB/, e, v)
  !$acc end serial

  !$acc update device(/blockA/)
  !$acc update self(/blockB/, v)
  !$acc update host(/blockA/, e, /blockB/)

  !$acc enter data pcopyin(/blockA/, /blockB/, e, v)
  !$acc exit data delete(/blockA/, /blockB/, e, v)


  ! No /block/ permitted in present and deviceptr:

  !$acc data present(/blockA/, /blockB/, e, v) ! { dg-error "Syntax error in OpenMP variable list" }
  !$acc end data ! { dg-error "Unexpected ..ACC END DATA statement" }

  !$acc data deviceptr(/blockA/, /blockB/, e, v) ! { dg-error "Syntax error in OpenMP variable list" }
  !$acc end data ! { dg-error "Unexpected ..ACC END DATA statement" }
end program test