blob: a964737d11ff1fc6e0809c9582ca9120f9c64a18 [file] [log] [blame]
-- { 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;