Excepton handling o fost inventat in 82 :))))))))))))))

Inventat si uitat de el :)))))))))))) Exemplu de exception handling din Ada 95:begin … if New_Name = Old_Entry.A_Name then raise Name_Duplicated; end if; … New_Entry := new Dir_Node'(New_Name, New_Number,…); … -- no exceptions eh? I think not! exception when Storage_Error => raise Directory_Full; end Insert;http://archive.adaic.com/standards/83lrm/html/lrm-11-01.html