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