Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/goacc/loop-2-parallel-nested.f95 @ 152:2b5abeee2509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents 1830386684a0
children
line wrap: on
line source

program test
  implicit none
  integer :: i, j

  !$acc parallel loop gang
  DO i = 1,10
    !$acc parallel loop gang ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
    DO j = 1,10
    ENDDO
  ENDDO

  !$acc parallel loop worker
  DO i = 1,10
    !$acc parallel loop worker ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
    DO j = 1,10
    ENDDO
    !$acc parallel loop gang ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
    DO j = 1,10
    ENDDO
  ENDDO

  !$acc parallel loop vector
  DO i = 1,10
    !$acc parallel loop vector ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
    DO j = 1,10
    ENDDO
    !$acc parallel loop worker ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
    DO j = 1,10
    ENDDO
    !$acc parallel loop gang ! { dg-bogus "OpenACC construct inside of non-OpenACC region" "TODO" { xfail *-*-* } }
    DO j = 1,10
    ENDDO
  ENDDO
end