1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
! PR fortran/63938 ! { dg-do run } program pr63938_2 type t integer :: x end type integer :: i type(t) :: x x%x = 0 !$omp parallel do do i = 1, 1000 !$omp atomic x%x = x%x + 1 end do !$omp end parallel do if (x%x .ne. 1000) stop 1 end program pr63938_2