1! { dg-do compile } 2 3 MODULE A26_2 4 REAL A 5 CONTAINS 6 SUBROUTINE G(K) 7 REAL K 8 A = K ! This is A in module A26_2, not the private 9 ! A in F 10 END SUBROUTINE G 11 SUBROUTINE F(N) 12 INTEGER N 13 REAL A 14 INTEGER I 15!$OMP PARALLEL DO PRIVATE(A) 16 DO I = 1,N 17 A=I 18 CALL G(A*2) 19 ENDDO 20!$OMP END PARALLEL DO 21 END SUBROUTINE F 22 END MODULE A26_2 23