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:
SelectRankConstructChecker(SemanticsContext & context)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_
27