gcc/testsuite/gnat.dg/fatp_sra.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

--  { dg-do compile }
--  { dg-options "-gnatp -O1" }

procedure Fatp_Sra is

   function X return String is
   begin
      return "X";
   end;

   function Letter return String is
   begin
      return X;
   end;
begin
   null;
end;