12 lines · plain
1!RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s2 3!CHECK: Support for iterator modifiers is not implemented yet4subroutine f(arg)5 type :: s6 integer :: a(10)7 end type8 type(s) :: arg(:)9 10 !$omp declare mapper(m: s :: v) map(mapper(m), iterator(i = 1:10): v%a(i))11end12