//======================================================================================== // R1103 end-program-stmt //---------------------------------------------------------------------------------------- void UntypedASTBuilder::build_EndProgramStmt(EndProgramStmt * endProgramStmt) { Sg_File_Info * start = NULL; SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start); stmt->set_statement_enum(SgToken::FORTRAN_END_PROGRAM); if (endProgramStmt->getLabel()) stmt->set_label_string (endProgramStmt->getLabel()->getValue()); if (endProgramStmt->getProgramName()) stmt->set_statement_name(endProgramStmt->getProgramName()->getIdent()->getValue()); endProgramStmt->setPayload(stmt); }
//======================================================================================== // R1106 end-module-stmt //---------------------------------------------------------------------------------------- void UntypedASTBuilder::build_EndModuleStmt(EndModuleStmt* endModuleStmt) { #if 0 Sg_File_Info * start = NULL; SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start); stmt->set_statement_enum(SgToken::FORTRAN_END_MODULE); if (endModuleStmt->getLabel()) stmt->set_label_string (endModuleStmt->getLabel()->getValue()); if (endModuleStmt->getModuleName()) stmt->set_statement_name(endModuleStmt->getModuleName()->getIdent()->getValue()); endModuleStmt->setPayload(stmt); #endif }
//======================================================================================== // R1236 end-subroutine-stmt //---------------------------------------------------------------------------------------- void UntypedASTBuilder::build_EndSubroutineStmt(EndSubroutineStmt * endSubroutineStmt) { Sg_File_Info * start = NULL; SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start); stmt->set_statement_enum(SgToken::FORTRAN_END_SUBROUTINE); if (endSubroutineStmt->getLabel()) { stmt->set_label_string (endSubroutineStmt->getLabel()->getValue()); } if (endSubroutineStmt->getSubroutineName()) { stmt->set_statement_name(endSubroutineStmt->getSubroutineName()->getIdent()->getValue()); } endSubroutineStmt->setPayload(stmt); }
//======================================================================================== // R1232 end-function-stmt //---------------------------------------------------------------------------------------- void UntypedASTBuilder::build_EndFunctionStmt(EndFunctionStmt* endFunctionStmt) { #if 0 Sg_File_Info * start = NULL; SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start); stmt->set_statement_enum(SgToken::FORTRAN_END_FUNCTION); if (endFunctionStmt->getLabel()) { stmt->set_label_string (endFunctionStmt->getLabel()->getValue()); } if (endFunctionStmt->getFunctionName()) { stmt->set_statement_name(endFunctionStmt->getFunctionName()->getIdent()->getValue()); } endFunctionStmt->setPayload(stmt); #endif }
//======================================================================================== // R1239 end-mp-subprogram-stmt //---------------------------------------------------------------------------------------- void UntypedASTBuilder::build_EndMpSubprogramStmt(EndMpSubprogramStmt* endMpSubprogramStmt) { #if 0 Sg_File_Info * start = NULL; SgUntypedNamedStatement * stmt = new SgUntypedNamedStatement(start); stmt->set_statement_enum(SgToken::FORTRAN_END_MP_SUBPROGRAM); if (endMpSubprogramStmt->getLabel()) { stmt->set_label_string (endMpSubprogramStmt->getLabel()->getValue()); } if (endMpSubprogramStmt->getProcedureName()) { stmt->set_statement_name(endMpSubprogramStmt->getProcedureName()->getIdent()->getValue()); } endMpSubprogramStmt->setPayload(stmt); #endif }