--  { dg-do run }

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Characters.Latin_1;

procedure Image1 is
   Str : String := Ada.Characters.Latin_1.LF'Img;
begin
   if Str /= "LF" then
      raise Program_Error;
   end if;
end Image1;