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

   1 ! Test data clauses involving common blocks and common block data.
   2 ! Specifically, resolver errors such as duplicate data clauses.
   3
   4 program test
   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
  12   !$acc data copy(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  13   !$acc end data
  14
  15   !$acc data copyin(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  16   !$acc end data
  17
  18   !$acc data copyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  19   !$acc end data
  20
  21   !$acc data create(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  22   !$acc end data
  23
  24   !$acc data copyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  25   !$acc end data
  26
  27   !$acc data pcopy(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  28   !$acc end data
  29
  30   !$acc data pcopyin(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  31   !$acc end data
  32
  33   !$acc data pcopyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  34   !$acc end data
  35
  36   !$acc data pcreate(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  37   !$acc end data
  38
  39   !$acc data pcopyout(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  40   !$acc end data
  41
  42   !$acc parallel private(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  43   !$acc end parallel
  44
  45   !$acc parallel firstprivate(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  46   !$acc update device(b, /blockA/, x) ! { dg-error "Symbol .x. present on multiple clauses" }
  47   !$acc update self(z, /blockB/, v) ! { dg-error "Symbol .z. present on multiple clauses" }
  48   !$acc update host(/blockA/, c) ! { dg-error "Symbol .c. present on multiple clauses" }
  49   !$acc end parallel
  50
  51   !$acc enter data copyin(/blockB/, e, v, a, c, y) ! { dg-error "Symbol .y. present on multiple clauses" }
  52   !$acc exit data delete(/blockA/, /blockB/, e, v, a) ! { dg-error "Symbol .a. present on multiple clauses" }
  53 end program test