flang/lib/Semantics/check-select-rank.h

   1 //===-- lib/Semantics/check-select-rank.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_SELECT_STMT_H_
  10 #define FORTRAN_SEMANTICS_CHECK_SELECT_STMT_H_
  11
  12 #include "flang/Parser/parse-tree.h"
  13 #include "flang/Semantics/semantics.h"
  14
  15 namespace Fortran::semantics {
  16 class SelectRankConstructChecker : public virtual BaseChecker {
  17 public:
  18   SelectRankConstructChecker(SemanticsContext &context) : context_{context} {}
  19   void Leave(const parser::SelectRankConstruct &);
  20
  21 private:
  22   const SomeExpr *GetExprFromSelector(const parser::Selector &);
  23   SemanticsContext &context_;
  24 };
  25 } // namespace Fortran::semantics
  26 #endif // FORTRAN_SEMANTICS_CHECK_SELECT_STMT_H_