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