! This test checks lowering of OpenMP allocate Directive.

! RUN: not %flang_fc1 -emit-fir -fopenmp %s 2>&1 | FileCheck %s

program main
  integer :: x, y

  ! CHECK: not yet implemented: OmpAllocateDirective
  !$omp allocate(x, y)
end