1! PR fortran/82568
2
3MODULE PR82568_MOD
4  INTEGER :: N
5END MODULE
6PROGRAM PR82568
7  INTEGER :: I, L
8  !$OMP PARALLEL DO
9  DO I=1,2
10    BLOCK
11      USE PR82568_MOD
12      INTEGER :: J
13      DO J=1,2
14        PRINT*,I,J
15      END DO
16      DO K=1,2
17        PRINT*,I,K
18      END DO
19      DO L=1,2
20        PRINT*,I,L
21      END DO
22      DO N=1,2
23        PRINT*,I,N
24      END DO
25    END BLOCK
26    DO M=1,2
27      PRINT*,I,M
28    END DO
29  END DO
30  !$OMP TASK
31  DO I=1,2
32    BLOCK
33      USE PR82568_MOD
34      INTEGER :: J
35      DO J=1,2
36        PRINT*,I,J
37      END DO
38      DO K=1,2
39        PRINT*,I,K
40      END DO
41      DO L=1,2
42        PRINT*,I,L
43      END DO
44      DO N=1,2
45        PRINT*,I,N
46      END DO
47    END BLOCK
48    DO M=1,2
49      PRINT*,I,M
50    END DO
51  END DO
52  !$OMP END TASK
53  !$OMP TASKLOOP
54  DO I=1,2
55    BLOCK
56      USE PR82568_MOD
57      INTEGER :: J
58      DO J=1,2
59        PRINT*,I,J
60      END DO
61      DO K=1,2
62        PRINT*,I,K
63      END DO
64      DO L=1,2
65        PRINT*,I,L
66      END DO
67      DO N=1,2
68        PRINT*,I,N
69      END DO
70    END BLOCK
71    DO M=1,2
72      PRINT*,I,M
73    END DO
74  END DO
75END PROGRAM PR82568
76