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 112end 113