11 lines · plain
1! This test checks lowering of OpenMP allocate Directive.2 3! RUN: not %flang_fc1 -emit-fir -fopenmp %s 2>&1 | FileCheck %s4 5program main6 integer :: x, y7 8 ! CHECK: not yet implemented: OmpAllocateDirective9 !$omp allocate(x, y)10end11