@@ -32,8 +32,8 @@ def test_line_contains_openacc_directive():
32
32
def test_line_contains_openacc_parallel_directive ():
33
33
assert line_contains_openacc_parallel_directive ("#pragma acc parallel wait" , Cxx ())
34
34
assert line_contains_openacc_parallel_directive ("!$acc parallel" , Fortran ())
35
- assert not line_contains_openacc_parallel_directive ("#pragma acc for " , Cxx ())
36
- assert not line_contains_openacc_parallel_directive ("!$acc for " , Fortran ())
35
+ assert not line_contains_openacc_parallel_directive ("#pragma acc loop " , Cxx ())
36
+ assert not line_contains_openacc_parallel_directive ("!$acc loop " , Fortran ())
37
37
38
38
39
39
def test_openacc_pragma_contains_data_clause ():
@@ -318,3 +318,6 @@ def test_add_present_openacc():
318
318
assert add_present_openacc (code_f90 , acc_f90 , data , preprocessor , None ) == expected_f90
319
319
code_f90 = "!$acc parallel async num_workers(16) copy(array(:42))\n "
320
320
assert add_present_openacc (code_f90 , acc_f90 , data , preprocessor , None ) == code_f90
321
+ code_cxx = "#pragma acc parallel num_gangs(32)\n \t #pragma acc loop\n \t //for loop"
322
+ expected_cxx = "#pragma acc parallel num_gangs(32) present(array[:42])\n \t #pragma acc loop\n \t //for loop"
323
+ assert add_present_openacc (code_cxx , acc_cxx , data , preprocessor , None ) == expected_cxx
0 commit comments