flang/lib/Semantics/check-deallocate.h

   1 //===-- lib/Semantics/check-deallocate.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-exception
   6 //
   7 //===----------------------------------------------------------------------===//
   8
   9 #ifndef FORTRAN_SEMANTICS_CHECK_DEALLOCATE_H_
  10 #define FORTRAN_SEMANTICS_CHECK_DEALLOCATE_H_
  11
  12 #include "flang/Semantics/semantics.h"
  13
  14 namespace Fortran::parser {
  15 struct DeallocateStmt;
  16 }
  17
  18 namespace Fortran::semantics {
  19 class DeallocateChecker : public virtual BaseChecker {
  20 public:
  21   DeallocateChecker(SemanticsContext &context) : context_{context} {}
  22   void Leave(const parser::DeallocateStmt &);
  23
  24 private:
  25   bool CheckPolymorphism(parser::CharBlock, const Symbol &);
  26   SemanticsContext &context_;
  27 };
  28 } // namespace Fortran::semantics
  29 #endif // FORTRAN_SEMANTICS_CHECK_DEALLOCATE_H_