69 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -fopenacc2 3subroutine sub1()4 real, allocatable, device :: a(:)5 integer :: i6 7!ERROR: Unsupported CUDA data transfer8 a = a + 10 ! Illegal expression according to 3.4.29 10 !$cuf kernel do11 do i = 1, 1012 a(i) = a(i) + 10 ! ok in cuf kernel do13 end do14 15 !$acc parallel loop16 do i = 1, 1017 a(i) = a(i) + 10 ! ok in openacc combined construct18 end do19 20 !$acc serial loop21 do i = 1, 1022 a(i) = a(i) + 10 ! ok in openacc combined construct23 end do24 25 !$acc kernels loop26 do i = 1, 1027 a(i) = a(i) + 10 ! ok in openacc combined construct28 end do29 30 !$acc parallel31 !$acc loop32 do i = 1, 1033 a(i) = a(i) + 10 ! ok in nested openacc construct34 end do35 !$acc end parallel36 37 !$acc kernels38 !$acc loop39 do i = 1, 1040 a(i) = a(i) + 10 ! ok in nested openacc construct41 end do42 !$acc end kernels43 44 !$acc serial45 !$acc loop46 do i = 1, 1047 a(i) = a(i) + 10 ! ok in nested openacc construct48 end do49 !$acc end serial50 51 !$acc loop52 do i = 1, 1053 a(i) = a(i) + 10 ! ok acc loop54 end do55 56 !$acc data57 58 do i = 1, 1059!ERROR: Unsupported CUDA data transfer60 a(i) = a(i) + 1061 end do62 63 !$acc end data64 65end subroutine66 67 68 69