Ada as 2nd Lang, p. 678

[johng@discovery.eng.auburn.edu (John M. Greer)]

I was wondering if anyone could help for a second . . .
Ada as a Second Language (My favorite book) gives this listing
for an example using Generic subprograms, but GNAT complains of end-of-line;
it sees the declaration and stops.
"end of file expected, file can have only one compilation unit
gnatmake: "cyclic_successor_template.adb" compilation error"

GENERIC
   TYPE Discrete_Type IS (<>);
   FUNCTION Cyclic_Successor_Template (X : Discrete_Type) RETURN Discrete_Type;

--Generic subprogram body:

   FUNCTION Cyclic_Successor_Template (X:Discrete_Type) RETURN Discrete_Type IS
   BEGIN
      IF X = Discrete_Type'Last THEN
	 RETURN Discrete_Type;First;
      ELSE
	 RETURN Discrete_Type'Succ(X);
      END IF;
   END Cyclic_Successor_Template;