--* From BMT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Tue Nov  2 18:05:12 1993
--* Received: from yktvmh.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA13950; Tue, 2 Nov 1993 18:05:12 -0500
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 3024; Tue, 02 Nov 93 18:12:21 EST
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BMT.NOTE.VAGENT2.6500.Nov.02.18:12:20.-0500>
--*           for asbugs@watson; Tue, 02 Nov 93 18:12:20 -0500
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 6498; Tue, 2 Nov 1993 18:12:20 EST
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Tue, 02 Nov 93 18:12:19 EST
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA18886; Tue, 2 Nov 1993 18:11:52 -0500
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA14375; Tue, 2 Nov 1993 18:14:06 -0500
--* Date: Tue, 2 Nov 1993 18:14:06 -0500
--* From: bmt@spadserv.watson.ibm.com
--* X-External-Networks: yes
--* Message-Id: <9311022314.AA14375@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: compiler incorrectly warns that default type doesn't match explicit type. [atest.as][current]

--@ Fixed  by:  SSD   Mon Apr 18 15:09:24 1994 
--@ Tested by:  none 
--@ Summary:    scobindDeclare should use abEqualModDeclares. 


#include "aslib.as"
default f:SingleInteger -> SingleInteger
f(a:SingleInteger):SingleInteger == a