06fc87bcd3
Add two more AST nodes, one for a misplaced end-directive, and one for an invalid string following the OpenMP sentinel (e.g. "!$OMP XYZ"). Emit error messages when either node is encountered in semantic analysis.
6 lines
126 B
Fortran
6 lines
126 B
Fortran
! RUN: not %flang_fc1 -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s
|
|
|
|
! CHECK: error: Invalid OpenMP directive
|
|
!$omp dummy
|
|
end
|