scope-5.f90\gomp\gfortran.dg\testsuite\gcc - 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/gcc/testsuite/gfortran.dg/gomp/scope-5.f90

blob: baddae51b421eaefe0c26d0298d16661eb23c243 (plain)

! { dg-do compile }

subroutine foo ()
  integer f
  f = 0;
  !$omp scope firstprivate(f)	! { dg-error "firstprivate variable 'f' is private in outer context" }
    f = f + 1
  !$omp end scope
end