mirror of
https://github.com/OpenMP/Examples.git
synced 2025-04-04 05:41:33 +01:00
20 lines
445 B
Fortran
20 lines
445 B
Fortran
! @@name: loop.2f90
|
|
! @@type: F-free, omp_5.0
|
|
! @@compilable: yes
|
|
! @@linkable: yes
|
|
! @@expect: success
|
|
program main
|
|
integer, parameter :: N=100
|
|
real :: x(N), y(N)
|
|
real :: a = 2.0e0
|
|
|
|
x=[i,i=1,N]; y=1.0e0 !! initialize
|
|
|
|
!$omp parallel
|
|
!$omp loop
|
|
do i=1,N; y(i) = a*x(i) + y(i); enddo
|
|
!$omp end parallel
|
|
|
|
if(y(N) /= N*2.0e0) print*,"Error: 2*N /= y(N); y(N)=",y(N)
|
|
end program
|