32 lines · c
1//===-- lib/Semantics/check-select-type.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_TYPE_H_10#define FORTRAN_SEMANTICS_CHECK_SELECT_TYPE_H_11 12#include "flang/Semantics/semantics.h"13 14namespace Fortran::parser {15struct SelectTypeConstruct;16struct Selector;17} // namespace Fortran::parser18 19namespace Fortran::semantics {20 21class SelectTypeChecker : public virtual BaseChecker {22public:23 explicit SelectTypeChecker(SemanticsContext &context) : context_{context} {};24 void Enter(const parser::SelectTypeConstruct &);25 26private:27 const SomeExpr *GetExprFromSelector(const parser::Selector &);28 SemanticsContext &context_;29};30} // namespace Fortran::semantics31#endif // FORTRAN_SEMANTICS_CHECK_SELECT_TYPE_H_32