LogicalConstantExpr::LogicalConstantExpr(ASTContext &C, SourceRange Range, llvm::StringRef Data, QualType T) : ConstantExpr(LogicalConstantExprClass, T, Range.Start, Range.End) { Val = (Data.compare_lower(".TRUE.") == 0); }