15 lines · plain
1! RUN: split-file %s %t2! RUN: %flang_fc1 -fsyntax-only -fopenmp -fopenmp-version=50 -module-dir %t %t/m.f903! RUN: cat %t/m.mod | FileCheck --ignore-case %s4 5!--- m.f906module m7 implicit none8 type :: t9 integer :: x10 end type t11 !$omp declare mapper(mymap : t :: v) map(v%x)12end module m13 14!CHECK: !$OMP DECLARE MAPPER(mymap:t::v) MAP(v%x)15