27 lines · c
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-exception6//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 15namespace Fortran::semantics {16class SelectRankConstructChecker : public virtual BaseChecker {17public:18 SelectRankConstructChecker(SemanticsContext &context) : context_{context} {}19 void Leave(const parser::SelectRankConstruct &);20 21private:22 const SomeExpr *GetExprFromSelector(const parser::Selector &);23 SemanticsContext &context_;24};25} // namespace Fortran::semantics26#endif // FORTRAN_SEMANTICS_CHECK_SELECT_STMT_H_27