mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 19:49:32 +00:00
21 lines
378 B
Fortran
21 lines
378 B
Fortran
|
! PR fortran/71014
|
||
|
|
! { dg-do run }
|
||
|
|
! { dg-additional-options "-O0" }
|
||
|
|
|
||
|
|
program pr71014
|
||
|
|
implicit none
|
||
|
|
integer :: i, j
|
||
|
|
integer, parameter :: t = 100*101/2
|
||
|
|
integer :: s(16)
|
||
|
|
s(:) = 0
|
||
|
|
!$omp parallel do
|
||
|
|
do j = 1, 16
|
||
|
|
associate (k => j)
|
||
|
|
do i = 1, 100
|
||
|
|
s(j) = s(j) + i
|
||
|
|
end do
|
||
|
|
end associate
|
||
|
|
end do
|
||
|
|
if (any(s /= t)) call abort
|
||
|
|
end program pr71014
|