blob: ab60e4491bd84c55694a7226fdd43bb87fe0abc8 (
plain)
1
2
3
4
5
6
7
8
9
10
|
-- { dg-do compile }
-- { dg-options "-gnat2012" }
function Recursive_Call (File : String; Status : out Boolean) return Boolean is
begin
if File /= "/dev/null" then
return Recursive_Call ("/dev/null", Status);
end if;
return False;
end;
|
