diff options
Diffstat (limited to 'flang/lib/Evaluate/call.cpp')
-rw-r--r-- | flang/lib/Evaluate/call.cpp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/flang/lib/Evaluate/call.cpp b/flang/lib/Evaluate/call.cpp index b4cf0dc3af3a..3fe56ab4874b 100644 --- a/flang/lib/Evaluate/call.cpp +++ b/flang/lib/Evaluate/call.cpp @@ -7,6 +7,7 @@ //===----------------------------------------------------------------------===// #include "flang/Evaluate/call.h" +#include "flang/Common/Fortran.h" #include "flang/Common/idioms.h" #include "flang/Evaluate/characteristics.h" #include "flang/Evaluate/expression.h" @@ -20,6 +21,7 @@ ActualArgument::ActualArgument(Expr<SomeType> &&x) : u_{std::move(x)} {} ActualArgument::ActualArgument(common::CopyableIndirection<Expr<SomeType>> &&v) : u_{std::move(v)} {} ActualArgument::ActualArgument(AssumedType x) : u_{x} {} +ActualArgument::ActualArgument(common::Label x) : u_{x} {} ActualArgument::~ActualArgument() {} ActualArgument::AssumedType::AssumedType(const Symbol &symbol) @@ -54,9 +56,8 @@ int ActualArgument::Rank() const { } bool ActualArgument::operator==(const ActualArgument &that) const { - return keyword_ == that.keyword_ && - isAlternateReturn_ == that.isAlternateReturn_ && - isPassedObject_ == that.isPassedObject_ && u_ == that.u_; + return keyword_ == that.keyword_ && isPassedObject_ == that.isPassedObject_ && + u_ == that.u_; } void ActualArgument::Parenthesize() { |