Searched defs:Alfa_Test (Results 1 – 2 of 2) sorted by last modified time
52 procedure Alfa_Test is subprogram53 Infile : File_Type;54 Name1 : String_Access;55 Outfile_1 : File_Type;56 Name2 : String_Access;57 Outfile_2 : File_Type;58 C : Character;60 Stop : exception;63 Diff_Exec : constant String_Access := Locate_Exec_On_Path ("diff");64 Diff_Result : Integer;[all …]