REPLACE GOTO MODULE class collection_subprogram class subprogram class class_goto class class_do class class_goto F77toF90