raw
udp_tester              1   -- S.MG, 2018
udp_tester 2
udp_tester 3 with UDP_Tester;
udp_tester 4
udp_tester 5 procedure UDP_Receiver is
udp_tester 6 -- Port to listen on
udp_tester 7 Receiver_Port : constant := 9000;
udp_tester 8 begin
udp_tester 9
udp_tester 10 UDP_Tester.Receiver( Receiver_Port );
udp_tester 11
udp_tester 12 end UDP_Receiver;