Skip to content

Commit 0b9de1d

Browse files
authored
Merge pull request #2073 from agozillon/modifications-for-ci-test-harness
[Flang][OpenMP] Some tweaks required for the CI to run fortran_map_tests
2 parents 2574c01 + e6b02a3 commit 0b9de1d

4 files changed

Lines changed: 411 additions & 198 deletions

File tree

test/fortran-map-tests/dtype_pointer_to_member.f90

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -36,5 +36,15 @@ program prog_a
3636

3737
!$omp target exit data map(release:var_d)
3838

39+
do var_f = 1,1024
40+
var_d%var_c(var_f) = var_f
41+
if (var_d%var_c(var_f) /= var_f) then
42+
print *, "======= FORTRAN Test Failed! ======="
43+
stop 1
44+
end if
45+
end do
46+
3947
deallocate(var_d%var_c)
48+
49+
print*, "======= FORTRAN Test Passed! ======="
4050
end program

test/fortran-map-tests/swdev-561059.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -113,5 +113,5 @@ program prog_a
113113

114114
deallocate(var_l)
115115

116-
print *, "======= FORTRAN Test Success! ======="
116+
print *, "======= FORTRAN Test Passed! ======="
117117
end program prog_a

test/fortran-map-tests/target_enter_exit_milestone_3.f90

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -85,4 +85,6 @@ program prog_a
8585
call sub_c()
8686
call sub_f(10)
8787
call sub_b()
88+
89+
print*, "======= FORTRAN Test passed! ======="
8890
end program

0 commit comments

Comments
 (0)