| ! { dg-do run } | |
| ! { dg-options "-fno-openmp -fopenmp-simd" } | |
| module test_functions | |
| contains | |
| integer function compute_sum() result(sum) | |
| implicit none | |
| integer :: i,j | |
| sum = 0 | |
| !$omp simd reduction(+:sum) | |
| do i = 1,10,3 | |
| !$omp unroll full | |
| do j = 1,10,3 | |
| sum = sum + 1 | |
| end do | |
| end do | |
| end function compute_sum | |
| end module test_functions | |
| program test | |
| use test_functions | |
| implicit none | |
| integer :: result | |
| result = compute_sum () | |
| if (result .ne. 16) then | |
| stop 1 | |
| end if | |
| end program |