30 lines · c
1//===-- lib/Semantics/check-allocate.h --------------------------*- C++ -*-===//2//3// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.4// See https://llvm.org/LICENSE.txt for license information.5// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception6//7//===----------------------------------------------------------------------===//8 9#ifndef FORTRAN_SEMANTICS_CHECK_ALLOCATE_H_10#define FORTRAN_SEMANTICS_CHECK_ALLOCATE_H_11 12#include "flang/Semantics/semantics.h"13 14namespace Fortran::parser {15struct AllocateStmt;16}17 18namespace Fortran::semantics {19class AllocateChecker : public virtual BaseChecker {20public:21 AllocateChecker(SemanticsContext &context) : context_{context} {}22 void Leave(const parser::AllocateStmt &);23 24private:25 SemanticsContext &context_;26};27bool AreSameAllocation(const SomeExpr *root, const SomeExpr *path);28} // namespace Fortran::semantics29#endif // FORTRAN_SEMANTICS_CHECK_ALLOCATE_H_30