gcc/testsuite/gfortran.dg/gomp/appendix-a/a.17.3.f90

   1 ! { dg-do compile }
   2       SUBROUTINE A17_3_WRONG
   3         INTEGER:: I
   4         REAL:: R
   5         EQUIVALENCE(I,R)
   6 !$OMP PARALLEL
   7 !$OMP ATOMIC
   8             I=I+1
   9 ! incorrect because I and R reference the same location
  10 ! but have different types
  11 !$OMP END PARALLEL
  12 !$OMP PARALLEL
  13 !$OMP ATOMIC
  14             R = R + 1.0
  15 ! incorrect because I and R reference the same location
  16 ! but have different types
  17 !$OMP END PARALLEL
  18       END SUBROUTINE A17_3_WRONG