blob: e5f37ba7602a3ce1906a4ce9ee2691dbd8586e20 (
plain)
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) call abort
end program pr63938_2
|