1! { dg-do compile }
2
3        SUBROUTINE A25
4        INTEGER OMP_GET_THREAD_NUM
5        REAL A(20)
6        INTEGER MYTHREAD
7        !$OMP PARALLEL SHARED(A) PRIVATE(MYTHREAD)
8        MYTHREAD = OMP_GET_THREAD_NUM()
9        IF (MYTHREAD .EQ. 0) THEN
10            CALL SUB(A(1:10)) ! compiler may introduce writes to A(6:10)
11        ELSE
12            A(6:10) = 12
13        ENDIF
14        !$OMP END PARALLEL
15        END SUBROUTINE A25
16        SUBROUTINE SUB(X)
17        REAL X(*)
18        X(1:5) = 4
19        END SUBROUTINE SUB
20