--  filesize.adb - prints size of passwd file

with Ada.Text_IO;
with POSIX.File_Status;
procedure Filesize is
   use POSIX;
   use POSIX.File_Status;
begin
   Ada.Text_IO.Put
     (" The size of /etc/passwd is " &
      IO_Count'Image (Size_Of (Get_File_Status ("/etc/passwd"))));
end Filesize;