1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
//===-- lib/Evaluate/common.cpp -------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#include "flang/Evaluate/common.h"
#include "flang/Common/idioms.h"
using namespace Fortran::parser::literals;
namespace Fortran::evaluate {
void RealFlagWarnings(
FoldingContext &context, const RealFlags &flags, const char *operation) {
if (flags.test(RealFlag::Overflow)) {
context.messages().Say("overflow on %s"_en_US, operation);
}
if (flags.test(RealFlag::DivideByZero)) {
if (std::strcmp(operation, "division") == 0) {
context.messages().Say("division by zero"_en_US);
} else {
context.messages().Say("division on %s"_en_US);
}
}
if (flags.test(RealFlag::InvalidArgument)) {
context.messages().Say("invalid argument on %s"_en_US, operation);
}
if (flags.test(RealFlag::Underflow)) {
context.messages().Say("underflow on %s"_en_US, operation);
}
}
ConstantSubscript &FoldingContext::StartImpliedDo(
parser::CharBlock name, ConstantSubscript n) {
auto pair{impliedDos_.insert(std::make_pair(name, n))};
CHECK(pair.second);
return pair.first->second;
}
std::optional<ConstantSubscript> FoldingContext::GetImpliedDo(
parser::CharBlock name) const {
if (auto iter{impliedDos_.find(name)}; iter != impliedDos_.cend()) {
return {iter->second};
} else {
return std::nullopt;
}
}
void FoldingContext::EndImpliedDo(parser::CharBlock name) {
auto iter{impliedDos_.find(name)};
if (iter != impliedDos_.end()) {
impliedDos_.erase(iter);
}
}
} // namespace Fortran::evaluate
|
