(* Copyright (C) 1990, Digital Equipment Corporation.         *)
(* All rights reserved.                                       *)
(* See the file COPYRIGHT for a full description.             *)

(* Last modified on Wed Apr 25 07:14:04 1990 by muller        *)

MODULE Main;

<*EXTERNAL*> PROCEDURE foo (x: INTEGER): INTEGER;

PROCEDURE foofoo (y: INTEGER): INTEGER = BEGIN RETURN 0 END foofoo;

CONST
 bar = foo;
 barbar = foofoo;

BEGIN
EVAL bar (3);
EVAL barbar (3);
END Main.