mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-04 16:50:57 +00:00
20 lines
424 B
Fortran
20 lines
424 B
Fortran
|
! PR fortran/88463
|
||
|
|
! { dg-do compile { target { ! *-*-* } } }
|
||
|
|
|
||
|
|
module pr88463_1
|
||
|
|
integer, parameter :: c = 1
|
||
|
|
real, parameter :: d(4) = (/ 2, 3, 4, 5 /)
|
||
|
|
end module pr88463_1
|
||
|
|
|
||
|
|
program pr88463
|
||
|
|
use pr88463_1
|
||
|
|
use pr88463_2
|
||
|
|
integer :: i
|
||
|
|
real :: j(4)
|
||
|
|
!$omp parallel default(none) private (i, j)
|
||
|
|
i = a + b(1) + b(4) + c + d(1) + d(4)
|
||
|
|
j(1:4) = b(1:4)
|
||
|
|
j(1:4) = d(1:4)
|
||
|
|
!$omp end parallel
|
||
|
|
end program pr88463
|