adeff9f63a
Allow utility constructs (error and nothing) to appear in the specification part as well as the execution part. The exception is "ERROR AT(EXECUTION)" which should only be in the execution part. In case of ambiguity (the boundary between the specification and the execution part), utility constructs will be parsed as belonging to the specification part. In such cases move them to the execution part in the OpenMP canonicalization code.
28 lines
2.1 KiB
Fortran
28 lines
2.1 KiB
Fortran
! RUN: %flang_fc1 -fopenmp-version=51 -fopenmp -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
! RUN: %flang_fc1 -fopenmp-version=51 -fopenmp -fdebug-dump-parse-tree %s 2>&1 | FileCheck %s --check-prefix="PARSE-TREE"
|
|
program main
|
|
character(*), parameter :: message = "This is an error"
|
|
!CHECK: !$OMP ERROR AT(COMPILATION) SEVERITY(WARNING) MESSAGE("some message here")
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPUtilityConstruct -> OmpErrorDirective
|
|
!PARSE-TREE: OmpClauseList -> OmpClause -> At -> OmpAtClause -> ActionTime = Compilation
|
|
!PARSE-TREE: OmpClause -> Severity -> OmpSeverityClause -> Severity = Warning
|
|
!PARSE-TREE: OmpClause -> Message -> OmpMessageClause -> Expr = '"some message here"'
|
|
!PARSE-TREE: LiteralConstant -> CharLiteralConstant
|
|
!PARSE-TREE: string = 'some message here'
|
|
!$omp error at(compilation) severity(warning) message("some message here")
|
|
!CHECK: !$OMP ERROR AT(COMPILATION) SEVERITY(FATAL) MESSAGE("This is an error")
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPUtilityConstruct -> OmpErrorDirective
|
|
!PARSE-TREE: OmpClauseList -> OmpClause -> At -> OmpAtClause -> ActionTime = Compilation
|
|
!PARSE-TREE: OmpClause -> Severity -> OmpSeverityClause -> Severity = Fatal
|
|
!PARSE-TREE: OmpClause -> Message -> OmpMessageClause -> Expr = '"This is an error"'
|
|
!PARSE-TREE: Designator -> DataRef -> Name = 'message'
|
|
!$omp error at(compilation) severity(fatal) message(message)
|
|
!CHECK: !$OMP ERROR AT(EXECUTION) SEVERITY(FATAL) MESSAGE("This is an error")
|
|
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPUtilityConstruct -> OmpErrorDirective
|
|
!PARSE-TREE: OmpClauseList -> OmpClause -> At -> OmpAtClause -> ActionTime = Execution
|
|
!PARSE-TREE: OmpClause -> Severity -> OmpSeverityClause -> Severity = Fatal
|
|
!PARSE-TREE: OmpClause -> Message -> OmpMessageClause -> Expr = '"This is an error"'
|
|
!PARSE-TREE: Designator -> DataRef -> Name = 'message'
|
|
!$omp error at(EXECUTION) severity(fatal) message(message)
|
|
end program main
|