Searched refs:initialEval (Results 1 – 1 of 1) sorted by relevance
991 lower::pft::Evaluation *initialEval = &evaluationListStack.back()->front(); in processEntryPoints() local992 lower::pft::FunctionLikeUnit *unit = initialEval->getOwningProcedure(); in processEntryPoints()999 if (initialEval->hasNestedEvaluations()) in processEntryPoints()1000 initialEval = &initialEval->getFirstNestedEvaluation(); in processEntryPoints()1001 else if (initialEval->isA<Fortran::parser::EntryStmt>()) in processEntryPoints()1002 initialEval = initialEval->lexicalSuccessor; in processEntryPoints()1003 initialEval->isNewBlock = true; in processEntryPoints()