22 lines · plain
1! RUN: %flang_fc1 -fopenacc %s2! A regression test to check that3! arbitrary compiler directives do not generate errors4! inside OpenACC collapsed loops5subroutine foo6 integer, parameter :: loop_bound = 427 integer :: a8 integer :: b9 integer :: c10 11 !$acc parallel12 do a = 0, loop_bound13 !$acc loop collapse(2)14 do b = 0, loop_bound15 !dir$ ivdep16 do c = 0, loop_bound17 enddo18 enddo19 enddo20 !$acc end parallel21end subroutine foo22