gcc/testsuite/gnat.dg/opt87_pkg.adb

   1 with Text_IO; use Text_IO;
   2
   3 package body Opt87_Pkg is
   4
   5   procedure Print (Msg : String; Location : String) is
   6     Final_Msg : constant String :=
   7       Ascii.Cr & "info: " & Msg & " (" & Location & ")" & Ascii.Cr;
   8   begin
   9     Put_Line (Final_Msg);
  10   end;
  11
  12 end Opt87_Pkg;