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