with Ada.Exceptions;
with Ada.Text_IO;
procedure Test is
type Animal is range 1 .. 42;
subtype Fish is Animal range 2 .. 30;
subtype Shark is Fish range 10 .. 20;
F : Fish;
S : Shark;
begin
S := S * F;
exception
when E : others =>
Ada.Text_IO.Put_Line(Ada.Exceptions.Exception_Message(E));
end Test;
d2l0aCBBZGEuRXhjZXB0aW9uczsKd2l0aCBBZGEuVGV4dF9JTzsKCnByb2NlZHVyZSBUZXN0IGlzCiAgdHlwZSBBbmltYWwgaXMgcmFuZ2UgMSAuLiA0MjsKICBzdWJ0eXBlIEZpc2ggaXMgQW5pbWFsIHJhbmdlIDIgLi4gMzA7CiAgc3VidHlwZSBTaGFyayBpcyBGaXNoIHJhbmdlIDEwIC4uIDIwOwogIEYgOiBGaXNoOwogIFMgOiBTaGFyazsKYmVnaW4KICBTIDo9IFMgKiBGOwpleGNlcHRpb24KICB3aGVuIEUgOiBvdGhlcnMgPT4KICAgIEFkYS5UZXh0X0lPLlB1dF9MaW5lKEFkYS5FeGNlcHRpb25zLkV4Y2VwdGlvbl9NZXNzYWdlKEUpKTsKZW5kIFRlc3Q7