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