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