gcc/testsuite/gnat.dg/concat4.adb

   1 -- { dg-do compile }
   2
   3 with Ada.Text_IO; use Ada.Text_IO;
   4
   5 procedure Concat4 (X : Integer) is
   6    Ximg : constant String := Integer'Image (X);
   7 begin
   8    if X > 0 then
   9       Put_Line (Ximg & " is Positive");
  10    elsif X < 0 then
  11       Put_Line (Ximg & " is Negative");
  12    else
  13       Put_Line (Ximg & " is Null");
  14    end if;
  15 end;
  16
  17 -- { dg-final { scan-assembler-not "_Unwind_Resume" } }