10 lines · plain
1! RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -o - %s 2>&1 | FileCheck %s2 3! CHECK: not yet implemented: Privatization of assumed rank variable4subroutine assumedPriv(a)5 integer :: a(..)6 7 !$omp parallel private(a)8 !$omp end parallel9end10