1Test input.adb /^procedure Test is$/;" r 2My_Type input.adb /^ My_Type : Boolean := True;$/;" v subprogram:Test file: 3Tagged_Procedure input.adb /^ procedure Tagged_Procedure is$/;" r subprogram:Test file: 4Boolean_As_String input.adb /^ function Boolean_As_String return String is$/;" r subprogram:Tagged_Procedure file: 5Another_Boolean_As_String input.adb /^ function Another_Boolean_As_String return String is$/;" r subprogram:Tagged_Procedure file: 6p0 input.adb /^ procedure p0 is $/;" r subprogram:Tagged_Procedure file: 7Yet_Boolean_As_String input.adb /^ function Yet_Boolean_As_String return String is$/;" r subprogram:Tagged_Procedure file: 8p1 input.adb /^ procedure p1 is $/;" r subprogram:Tagged_Procedure file: 9Not_Tagged_Procedure input.adb /^ procedure Not_Tagged_Procedure is$/;" r subprogram:Test file: 10