tree-nested.c (convert_nonlocal_omp_clauses): Add support for OMP_CLAUSE_{NUM_GANGS...

[official-gcc.git] / gcc / testsuite / gfortran.dg / goacc / routine-3.f90

PROGRAM nested_gwv
CONTAINS
  SUBROUTINE gwv
    INTEGER  :: i
    REAL(KIND=8), ALLOCATABLE :: un(:),  ua(:)

    !$acc parallel num_gangs(2) num_workers(4) vector_length(32)
    DO jj = 1, 100
       un(i) = ua(i)
    END DO
    !$acc end parallel
  END SUBROUTINE gwv
END PROGRAM nested_gwv