1! { dg-do compile } 2 3 SUBROUTINE SUB() 4 COMMON /BLK/ R 5 REAL R 6!$OMP ATOMIC 7 R = R + 1.0 8 END SUBROUTINE SUB 9 10 SUBROUTINE A17_2_WRONG() 11 COMMON /BLK/ I 12 INTEGER I 13!$OMP PARALLEL 14!$OMP ATOMIC 15 I=I+1 16 CALL SUB() 17!$OMP END PARALLEL 18 END SUBROUTINE A17_2_WRONG 19 20