libgomp/testsuite/libgomp.fortran/allocatable10.f90

   1 ! { dg-do run }
   2
   3   integer, allocatable :: a, b(:), c(:,:)
   4   integer :: i
   5 !$omp declare reduction (foo : integer : omp_out = omp_out + omp_in) &
   6 !$omp & initializer (omp_priv = 0)
   7   if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1
   8   allocate (a, b(6:9), c(3, 8:9))
   9   a = 0
  10   b = 0
  11   c = 0
  12   if (.not.allocated (a)) stop 2
  13   if (.not.allocated (b) .or. size (b) /= 4) stop 3
  14   if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 4
  15   if (.not.allocated (c) .or. size (c) /= 6) stop 5
  16   if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 6
  17   if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 7
  18   if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 8
  19 !$omp parallel do reduction (+:a, b, c)
  20   do i = 1, 10
  21     if (.not.allocated (a)) stop 9
  22     if (.not.allocated (b) .or. size (b) /= 4) stop 10
  23     if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 11
  24     if (.not.allocated (c) .or. size (c) /= 6) stop 12
  25     if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 13
  26     if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 14
  27     if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 15
  28     a = a + i
  29     b = b + 2 * i
  30     c = c + 3 * i
  31   end do
  32   if (.not.allocated (a)) stop 16
  33   if (.not.allocated (b) .or. size (b) /= 4) stop 17
  34   if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 18
  35   if (.not.allocated (c) .or. size (c) /= 6) stop 19
  36   if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 20
  37   if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 21
  38   if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 22
  39   if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 23
  40   a = 0
  41   b = 0
  42   c = 0
  43 !$omp parallel do reduction (foo : a, b, c)
  44   do i = 1, 10
  45     if (.not.allocated (a)) stop 24
  46     if (.not.allocated (b) .or. size (b) /= 4) stop 25
  47     if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 26
  48     if (.not.allocated (c) .or. size (c) /= 6) stop 27
  49     if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 28
  50     if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 29
  51     if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 30
  52     a = a + i
  53     b = b + 2 * i
  54     c = c + 3 * i
  55   end do
  56   if (.not.allocated (a)) stop 31
  57   if (.not.allocated (b) .or. size (b) /= 4) stop 32
  58   if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 33
  59   if (.not.allocated (c) .or. size (c) /= 6) stop 34
  60   if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 35
  61   if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 36
  62   if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 37
  63   if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 38
  64   a = 0
  65   b = 0
  66   c = 0
  67 !$omp simd reduction (+:a, b, c)
  68   do i = 1, 10
  69     if (.not.allocated (a)) stop 39
  70     if (.not.allocated (b) .or. size (b) /= 4) stop 40
  71     if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 41
  72     if (.not.allocated (c) .or. size (c) /= 6) stop 42
  73     if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 43
  74     if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 44
  75     if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 45
  76     a = a + i
  77     b = b + 2 * i
  78     c = c + 3 * i
  79   end do
  80   if (.not.allocated (a)) stop 46
  81   if (.not.allocated (b) .or. size (b) /= 4) stop 47
  82   if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 48
  83   if (.not.allocated (c) .or. size (c) /= 6) stop 49
  84   if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 50
  85   if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 51
  86   if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 52
  87   if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 53
  88   a = 0
  89   b = 0
  90   c = 0
  91 !$omp simd reduction (foo : a, b, c)
  92   do i = 1, 10
  93     if (.not.allocated (a)) stop 54
  94     if (.not.allocated (b) .or. size (b) /= 4) stop 55
  95     if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 56
  96     if (.not.allocated (c) .or. size (c) /= 6) stop 57
  97     if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 58
  98     if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 59
  99     if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 60
 100     a = a + i
 101     b = b + 2 * i
 102     c = c + 3 * i
 103   end do
 104   if (.not.allocated (a)) stop 61
 105   if (.not.allocated (b) .or. size (b) /= 4) stop 62
 106   if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 63
 107   if (.not.allocated (c) .or. size (c) /= 6) stop 64
 108   if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 65
 109   if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 66
 110   if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 67
 111   if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 68
 112 end