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