xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a.26.1.f90 (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1*404b540aSrobert! { dg-do run }
2*404b540aSrobert       PROGRAM A26
3*404b540aSrobert         INTEGER I, J
4*404b540aSrobert         I=1
5*404b540aSrobert         J=2
6*404b540aSrobert!$OMP PARALLEL PRIVATE(I) FIRSTPRIVATE(J)
7*404b540aSrobert           I=3
8*404b540aSrobert           J=J+2
9*404b540aSrobert!$OMP END PARALLEL
10*404b540aSrobert          PRINT *, I, J ! I and J are undefined
11*404b540aSrobert      END PROGRAM A26
12