58 lines · plain
1! Test that non-standard shortloop clause is accepted and ignored with a2! warning.3 4! RUN: %flang_fc1 -fopenacc -emit-hlfir %s -o - 2>&1 | FileCheck %s5 6! CHECK: warning: Non-standard shortloop clause ignored7! CHECK: warning: Non-standard shortloop clause ignored8! CHECK: warning: Non-standard shortloop clause ignored9! CHECK: warning: Non-standard shortloop clause ignored10 11subroutine test_loop(a, b, c)12 implicit none13 real, dimension(100) :: a,b,c14 integer :: i15 !$acc loop vector shortloop16 do i=1,10017 a(i) = b(i) + c(i)18 enddo19end subroutine20! CHECK-LABEL: test_loop21! CHECK: acc.loop vector22 23subroutine test_kernels_loop(a, b, c)24 implicit none25 real, dimension(100) :: a,b,c26 integer :: i27 !$acc kernels loop vector shortloop28 do i=1,10029 a(i) = b(i) + c(i)30 enddo31end subroutine32! CHECK-LABEL: test_kernels_loop33! CHECK: acc.loop combined(kernels) vector34 35subroutine test_parallel_loop(a, b, c)36 implicit none37 real, dimension(100) :: a,b,c38 integer :: i39 !$acc parallel loop vector shortloop40 do i=1,10041 a(i) = b(i) + c(i)42 enddo43end subroutine44! CHECK-LABEL: test_parallel_loop45! CHECK: acc.loop combined(parallel) vector46 47subroutine test_serial_loop(a, b, c)48 implicit none49 real, dimension(100) :: a,b,c50 integer :: i51 !$acc serial loop vector shortloop52 do i=1,10053 a(i) = b(i) + c(i)54 enddo55end subroutine56! CHECK-LABEL: test_serial_loop57! CHECK: acc.loop combined(serial) vector58