mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 01:50:38 +00:00
21 lines
351 B
Fortran
21 lines
351 B
Fortran
! PR middle-end/35130
|
|
|
|
program pr35130
|
|
implicit none
|
|
real, dimension(20) :: a
|
|
integer :: k
|
|
a(:) = 0.0
|
|
!$omp parallel do private(k)
|
|
do k=1,size(a)
|
|
call inner(k)
|
|
end do
|
|
!$omp end parallel do
|
|
if (any (a.ne.42)) STOP 1
|
|
contains
|
|
subroutine inner(i)
|
|
implicit none
|
|
integer :: i
|
|
a(i) = 42
|
|
end subroutine inner
|
|
end program pr35130
|