2015-07-03 Christophe Lyon <christophe.lyon@linaro.org>

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

! { dg-do compile } 
!
! PR fortran/64726
!
subroutine oacc1()
  implicit none
  integer :: i
  integer  :: a
  !$acc parallel loop reduction(+:a) ! { dg-excess-errors "sorry, unimplemented: directive not yet implemented" }
  do i = 1,5
  enddo
end subroutine oacc1