task-reduction-18.f90\libgomp.fortran\testsuite\libgomp - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/libgomp/testsuite/libgomp.fortran/task-reduction-18.f90

blob: 0cbd471832251fe6bbdcb30a29448ed0e2152269 (plain)

! { dg-do run }

module m
  integer :: a = 0
end module m

program main
  !$omp task
    !$omp taskgroup task_reduction (+: a)
      !$omp task in_reduction (+: a)
        a = a + 1
      !$omp end task
    !$omp end taskgroup
  !$omp end task
end