Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/goacc/loop-2-parallel-3.f95 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! See also "../../c-c++-common/goacc/loop-3.c". program test implicit none integer :: i !$acc parallel !$acc loop gang(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop gang(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop worker(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop worker(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop vector(5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO !$acc loop vector(length:5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO !$acc end parallel !$acc parallel loop gang(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop gang(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop worker(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop worker(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop vector(5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO !$acc parallel loop vector(length:5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO end