View source for Yurttas/PL/IL/Ada-95/F/02/03/01/error handling 02.adb

<syntaxhighlight lang="ada" line start="1" enclose="div">--
-- Copyright (C) 1998
-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
--
-- Permission to use, copy, modify, and distribute this 
-- software and its documentation for EDUCATIONAL purposes
-- and without fee is hereby granted provided that this 
-- copyright notice appears in all copies. 
-- 
-- 
 
-- date   : January 1, 1998.
-- author : Salih Yurttas.

-- purpose : Error handling by exceptions.

-- error_handling_02.adb


with Error_Handling_02_P; use Error_Handling_02_P;

procedure Error_Handling_02 is

begin

  PA;

end Error_Handling_02;
</syntaxhighlight>