gcc/testsuite/gfortran.dg/gomp/collapse1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fopenmp" }
   3
   4 subroutine collapse1
   5   integer :: i, j, k, a(1:3, 4:6, 5:7)
   6   real :: r
   7   logical :: l
   8   integer, save :: thr
   9   !$omp threadprivate (thr)
  10   l = .false.
  11   a(:, :, :) = 0
  12   !$omp parallel do collapse(4) schedule(static, 4) ! { dg-error "not enough DO loops for collapsed" }
  13     do i = 1, 3
  14       do j = 4, 6
  15         do k = 5, 7
  16           a(i, j, k) = i + j + k
  17         end do
  18       end do
  19     end do
  20   !$omp parallel do collapse(2)
  21     do i = 1, 5, 2
  22       do j = i + 1, 7, i        ! { dg-error "collapsed loops don.t form rectangular iteration space" }
  23       end do
  24     end do
  25   !$omp parallel do collapse(2) shared(j)
  26     do i = 1, 3
  27       do j = 4, 6               ! { dg-error "iteration variable present on clause other than PRIVATE or LASTPRIVATE" }
  28       end do
  29     end do
  30   !$omp parallel do collapse(2)
  31     do i = 1, 3
  32       do j = 4, 6
  33       end do
  34       k = 4
  35     end do
  36   !$omp parallel do collapse(2)
  37     do i = 1, 3
  38       do                        ! { dg-error "cannot be a DO WHILE or DO without loop control" }
  39       end do
  40     end do
  41   !$omp parallel do collapse(2)
  42     do i = 1, 3
  43       do r = 4, 6               ! { dg-warning "must be integer" }
  44       end do
  45     end do
  46 end subroutine collapse1
  47
  48 subroutine collapse1_2
  49   integer :: i
  50   !$omp parallel do collapse(2)
  51     do i = -6, 6                ! { dg-error "cannot be redefined inside loop beginning" }
  52       do i = 4, 6               ! { dg-error "collapsed loops don.t form rectangular iteration space|cannot be redefined" }
  53       end do
  54     end do
  55 end subroutine collapse1_2
  56
  57 ! { dg-error "iteration variable must be of type integer" "integer" { target *-*-* } 43 }