1-- { dg-do compile } 2 3with Noreturn4_Pkg; use Noreturn4_Pkg; 4 5package body Noreturn4 is 6 7 procedure P1 (Msg : String) is 8 begin 9 P1 (Msg, 0); 10 end; 11 procedure P1 (Msg : String; Val : Integer) is 12 begin 13 Fatal_Error (Value (It)); 14 end; 15 16 procedure Fatal_Error (X : Integer) is 17 begin 18 raise PRogram_Error; 19 end; 20 21end Noreturn4; 22