PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays

[official-gcc.git] / gcc / testsuite / gfortran.dg / goacc / cache-2.f95

! OpenACC cache directive: invalid usage.
! { dg-additional-options "-std=f2008" }

program test
  implicit none
  integer :: i, d(10), e(5,13)

  do concurrent (i=1:5)
    !$acc cache (d) ! { dg-error "" "TODO" { xfail *-*-* } }
    !$acc cache (e) ! { dg-error "" "TODO" { xfail *-*-* } }
  enddo
end