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