df859f90aa
Create OpenMPUtilityConstruct and put the two utility directives in it (error and nothing). Rename OpenMPErrorConstruct to OmpErrorDirective.
8 lines
273 B
Fortran
8 lines
273 B
Fortran
! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s
|
|
|
|
! CHECK: not yet implemented: OpenMPUtilityConstruct
|
|
program p
|
|
integer, allocatable :: x
|
|
!$omp error at(compilation) severity(warning) message("an error")
|
|
end program p
|