16cf494888
* The warning was already here, this commit only refactors things so that it can be controled with -Mstandard. * Also makes the warning point to the do-stmt and adds a note to the warning pointing to the statements where it ends. Original-commit: flang-compiler/f18@11e1eb6edd Reviewed-on: https://github.com/flang-compiler/f18/pull/552 Tree-same-pre-rewrite: false
67 lines
2.9 KiB
C++
67 lines
2.9 KiB
C++
// Copyright (c) 2018-2019, NVIDIA CORPORATION. All rights reserved.
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 (the "License");
|
|
// you may not use this file except in compliance with the License.
|
|
// You may obtain a copy of the License at
|
|
//
|
|
// http://www.apache.org/licenses/LICENSE-2.0
|
|
//
|
|
// Unless required by applicable law or agreed to in writing, software
|
|
// distributed under the License is distributed on an "AS IS" BASIS,
|
|
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
// See the License for the specific language governing permissions and
|
|
// limitations under the License.
|
|
|
|
#ifndef FORTRAN_PARSER_FEATURES_H_
|
|
#define FORTRAN_PARSER_FEATURES_H_
|
|
|
|
#include "../common/enum-set.h"
|
|
#include "../common/idioms.h"
|
|
|
|
namespace Fortran::parser {
|
|
|
|
ENUM_CLASS(LanguageFeature, BackslashEscapes, OldDebugLines,
|
|
FixedFormContinuationWithColumn1Ampersand, LogicalAbbreviations,
|
|
XOROperator, PunctuationInNames, OptionalFreeFormSpace, BOZExtensions,
|
|
EmptyStatement, AlternativeNE, ExecutionPartNamelist, DECStructures,
|
|
DoubleComplex, Byte, StarKind, QuadPrecision, SlashInitialization,
|
|
TripletInArrayConstructor, MissingColons, SignedComplexLiteral,
|
|
OldStyleParameter, ComplexConstructor, PercentLOC, SignedPrimary, FileName,
|
|
Convert, Dispose, IOListLeadingComma, AbbreviatedEditDescriptor,
|
|
ProgramParentheses, PercentRefAndVal, OmitFunctionDummies, CrayPointer,
|
|
Hollerith, ArithmeticIF, Assign, AssignedGOTO, Pause, OpenMP,
|
|
CruftAfterAmpersand, ClassicCComments, AdditionalFormats, BigIntLiterals,
|
|
RealDoControls, EquivalenceNumericWithCharacter, AdditionalIntrinsics,
|
|
AnonymousParents, OldLabelDoEndStatements)
|
|
|
|
using LanguageFeatures =
|
|
common::EnumSet<LanguageFeature, LanguageFeature_enumSize>;
|
|
|
|
class LanguageFeatureControl {
|
|
public:
|
|
LanguageFeatureControl() {
|
|
// These features must be explicitly enabled by command line options.
|
|
disable_.set(LanguageFeature::OldDebugLines);
|
|
disable_.set(LanguageFeature::OpenMP);
|
|
// These features, if enabled, conflict with valid standard usage,
|
|
// so there are disabled here by default.
|
|
disable_.set(LanguageFeature::BackslashEscapes);
|
|
disable_.set(LanguageFeature::LogicalAbbreviations);
|
|
disable_.set(LanguageFeature::XOROperator);
|
|
}
|
|
LanguageFeatureControl(const LanguageFeatureControl &) = default;
|
|
void Enable(LanguageFeature f, bool yes = true) { disable_.set(f, !yes); }
|
|
void EnableWarning(LanguageFeature f, bool yes = true) { warn_.set(f, yes); }
|
|
void WarnOnAllNonstandard(bool yes = true) { warnAll_ = yes; }
|
|
bool IsEnabled(LanguageFeature f) const { return !disable_.test(f); }
|
|
bool ShouldWarn(LanguageFeature f) const {
|
|
return (warnAll_ && f != LanguageFeature::OpenMP) || warn_.test(f);
|
|
}
|
|
|
|
private:
|
|
LanguageFeatures disable_;
|
|
LanguageFeatures warn_;
|
|
bool warnAll_{false};
|
|
};
|
|
}
|
|
#endif // FORTRAN_PARSER_FEATURES_H_
|