mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-28 21:49:33 +00:00
12 lines
246 B
Fortran
12 lines
246 B
Fortran
|
! { dg-do run }
|
||
|
|
PROGRAM A26
|
||
|
|
INTEGER I, J
|
||
|
|
I=1
|
||
|
|
J=2
|
||
|
|
!$OMP PARALLEL PRIVATE(I) FIRSTPRIVATE(J)
|
||
|
|
I=3
|
||
|
|
J=J+2
|
||
|
|
!$OMP END PARALLEL
|
||
|
|
PRINT *, I, J ! I and J are undefined
|
||
|
|
END PROGRAM A26
|