summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/fatp_sra.adb
blob: a964737d11ff1fc6e0809c9582ca9120f9c64a18 (plain)
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;