1d8ecbe948
When the actual argument associated with an explicitly CONTIGUOUS pointer dummy argument is itself a pointer, it must also be contiguous. (A non-pointer actual argument can associate with a CONTIGUOUS pointer dummy argument if it's INTENT(IN), and in that case it's still just a warning if we can't prove at compilation time that the actual is contiguous.) Fixes https://github.com/llvm/llvm-project/issues/138899.
47 lines
1.7 KiB
C++
47 lines
1.7 KiB
C++
//===-- lib/Semantics/pointer-assignment.h --------------------------------===//
|
|
//
|
|
// 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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#ifndef FORTRAN_SEMANTICS_POINTER_ASSIGNMENT_H_
|
|
#define FORTRAN_SEMANTICS_POINTER_ASSIGNMENT_H_
|
|
|
|
#include "flang/Evaluate/expression.h"
|
|
#include "flang/Parser/char-block.h"
|
|
#include "flang/Semantics/type.h"
|
|
#include <string>
|
|
|
|
namespace Fortran::evaluate::characteristics {
|
|
struct DummyDataObject;
|
|
}
|
|
|
|
namespace Fortran::semantics {
|
|
|
|
class SemanticsContext;
|
|
class Symbol;
|
|
|
|
bool CheckPointerAssignment(
|
|
SemanticsContext &, const evaluate::Assignment &, const Scope &);
|
|
bool CheckPointerAssignment(SemanticsContext &, const SomeExpr &lhs,
|
|
const SomeExpr &rhs, const Scope &, bool isBoundsRemapping,
|
|
bool isAssumedRank);
|
|
bool CheckPointerAssignment(SemanticsContext &, parser::CharBlock source,
|
|
const std::string &description,
|
|
const evaluate::characteristics::DummyDataObject &, const SomeExpr &rhs,
|
|
const Scope &, bool isAssumedRank, bool IsPointerActualArgument);
|
|
|
|
bool CheckStructConstructorPointerComponent(
|
|
SemanticsContext &, const Symbol &lhs, const SomeExpr &rhs, const Scope &);
|
|
|
|
// Checks whether an expression is a valid static initializer for a
|
|
// particular pointer designator.
|
|
bool CheckInitialDataPointerTarget(SemanticsContext &, const SomeExpr &pointer,
|
|
const SomeExpr &init, const Scope &);
|
|
|
|
} // namespace Fortran::semantics
|
|
|
|
#endif // FORTRAN_SEMANTICS_POINTER_ASSIGNMENT_H_
|