1*adeff9f6SKrzysztof Parzyszek! RUN: %flang_fc1 -fopenmp-version=51 -fopenmp -fdebug-unparse %s 2>&1 | FileCheck %s 2*adeff9f6SKrzysztof Parzyszek! RUN: %flang_fc1 -fopenmp-version=51 -fopenmp -fdebug-dump-parse-tree %s 2>&1 | FileCheck %s --check-prefix="PARSE-TREE" 375e6d0ebSMats Peterssonprogram main 475e6d0ebSMats Petersson character(*), parameter :: message = "This is an error" 575e6d0ebSMats Petersson !CHECK: !$OMP ERROR AT(COMPILATION) SEVERITY(WARNING) MESSAGE("some message here") 6df859f90SKrzysztof Parzyszek !PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPUtilityConstruct -> OmpErrorDirective 775e6d0ebSMats Petersson !PARSE-TREE: OmpClauseList -> OmpClause -> At -> OmpAtClause -> ActionTime = Compilation 875e6d0ebSMats Petersson !PARSE-TREE: OmpClause -> Severity -> OmpSeverityClause -> Severity = Warning 9*adeff9f6SKrzysztof Parzyszek !PARSE-TREE: OmpClause -> Message -> OmpMessageClause -> Expr = '"some message here"' 10*adeff9f6SKrzysztof Parzyszek !PARSE-TREE: LiteralConstant -> CharLiteralConstant 11*adeff9f6SKrzysztof Parzyszek !PARSE-TREE: string = 'some message here' 1275e6d0ebSMats Petersson !$omp error at(compilation) severity(warning) message("some message here") 13*adeff9f6SKrzysztof Parzyszek !CHECK: !$OMP ERROR AT(COMPILATION) SEVERITY(FATAL) MESSAGE("This is an error") 14df859f90SKrzysztof Parzyszek !PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPUtilityConstruct -> OmpErrorDirective 1575e6d0ebSMats Petersson !PARSE-TREE: OmpClauseList -> OmpClause -> At -> OmpAtClause -> ActionTime = Compilation 1675e6d0ebSMats Petersson !PARSE-TREE: OmpClause -> Severity -> OmpSeverityClause -> Severity = Fatal 17*adeff9f6SKrzysztof Parzyszek !PARSE-TREE: OmpClause -> Message -> OmpMessageClause -> Expr = '"This is an error"' 18*adeff9f6SKrzysztof Parzyszek !PARSE-TREE: Designator -> DataRef -> Name = 'message' 1975e6d0ebSMats Petersson !$omp error at(compilation) severity(fatal) message(message) 20*adeff9f6SKrzysztof Parzyszek !CHECK: !$OMP ERROR AT(EXECUTION) SEVERITY(FATAL) MESSAGE("This is an error") 21df859f90SKrzysztof Parzyszek !PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPUtilityConstruct -> OmpErrorDirective 2275e6d0ebSMats Petersson !PARSE-TREE: OmpClauseList -> OmpClause -> At -> OmpAtClause -> ActionTime = Execution 2375e6d0ebSMats Petersson !PARSE-TREE: OmpClause -> Severity -> OmpSeverityClause -> Severity = Fatal 24*adeff9f6SKrzysztof Parzyszek !PARSE-TREE: OmpClause -> Message -> OmpMessageClause -> Expr = '"This is an error"' 25*adeff9f6SKrzysztof Parzyszek !PARSE-TREE: Designator -> DataRef -> Name = 'message' 2675e6d0ebSMats Petersson !$omp error at(EXECUTION) severity(fatal) message(message) 2775e6d0ebSMats Peterssonend program main 28