//======================================================================================== // R1102 program-stmt //---------------------------------------------------------------------------------------- void UntypedASTBuilder::build_ProgramStmt(ProgramStmt * programStmt) { Sg_File_Info * start = NULL; SgUntypedProgramHeaderDeclaration * program = NULL; program = new SgUntypedProgramHeaderDeclaration(start, programStmt->getProgramName()->getIdent()->getName()); program->set_statement_enum(SgToken::FORTRAN_PROGRAM); if (programStmt->getLabel()) program->set_label_string(programStmt->getLabel()->getValue()); programStmt->setPayload(program); }
//======================================================================================== // R1102 program-stmt //---------------------------------------------------------------------------------------- void UntypedASTBuilder::build_ProgramStmt(ProgramStmt * programStmt) { Sg_File_Info * start = NULL; SgUntypedProgramHeaderDeclaration * program = NULL; // set up the function scope // SgUntypedFunctionScope * scope = new SgUntypedFunctionScope(start); scope->set_declaration_list(new SgUntypedDeclarationList(start)); scope->set_statement_list(new SgUntypedStatementList(start)); scope->set_function_list(new SgUntypedFunctionDeclarationList(start)); program = new SgUntypedProgramHeaderDeclaration(start, programStmt->getProgramName()->getIdent()->getName()); program->set_statement_enum(SgToken::FORTRAN_PROGRAM); program->set_scope(scope); if (programStmt->getLabel()) program->set_label_string(programStmt->getLabel()->getValue()); programStmt->setPayload(program); }