flang/test/Semantics/OpenMP/declare-mapper03.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=50
   2 ! Test the declare mapper construct with two default mappers.
   3
   4 type :: t1
   5    integer :: y
   6 end type t1
   7
   8 type :: t2
   9    real :: y, z
  10 end type t2
  11
  12 !error: 'default' is already declared in this scoping unit
  13
  14 !$omp declare mapper(t1::x) map(x, x%y)
  15 !$omp declare mapper(t2::w) map(w, w%y, w%z)
  16 end