10 lines
247 B
Fortran
10 lines
247 B
Fortran
! This test checks lowering of OpenMP allocate Directive.
|
|
|
|
// RUN: not flang-new -fc1 -emit-fir -fopenmp %s 2>&1 | FileCheck %s
|
|
|
|
program main
|
|
integer :: x, y
|
|
|
|
// CHECK: not yet implemented: OpenMPDeclarativeAllocate
|
|
!$omp allocate(x, y)
|
|
end
|