! @@name:	tasking.11
! @@type:	F-free
! @@operation:	compile
! @@expect:	success
! @@version:	omp_3.1
subroutine foo()
  integer :: x
  x = 2
!$omp task shared(x) mergeable
  x = x + 1
!$omp end task
!$omp taskwait
  print *, x     ! prints 3
end subroutine