Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!iuvax!hagerp
From: hagerp@iuvax.cs.indiana.edu
Newsgroups: comp.lang.ada
Subject: Re: Ada puzzle
Message-ID: <15800006@iuvax>
Date: 7 Sep 89 17:02:00 GMT
References: <2862@catalina.sw.mcc.com>
Organization: Indiana University CSCI, Bloomington
Lines: 14
Nf-ID: #R:catalina.sw.mcc.com:-286200:iuvax:15800006:000:178
Nf-From: iuvax.cs.indiana.edu!hagerp    Sep  7 12:02:00 1989


How about something like:

	generic
	    type X is (<>);
	procedure Foo (Param : X) is
	    Y : X;
	begin
	    Y := Param;
	end Foo;

Is this what you had in mind?

--paul hager