1 with ada.task_identification;
2 with ada.text_io; use ada.text_io;
3 package body test_image_p is
4 function to_type1 (arg1 : in Integer) return type1 is
6 return (f2 => (others => Standard.False));
10 ada.task_identification.image (arg.the_task'identity);
12 arg.the_array := (others => to_type1 (-1));
13 if Name (1 .. 19) /= "my_at5c.f3.the_task" then