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) stop 1
18end program pr63938_2
19