--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Thu Jun 16 13:41:36 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA14957; Thu, 16 Jun 1994 13:41:36 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 3947; Thu, 16 Jun 94 13:41:37 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.BRONSTEI.NOTE.YKTVMV.4027.Jun.16.13:41:36.-0400>
--*           for asbugs@watson; Thu, 16 Jun 94 13:41:36 -0400
--* Received: from inf.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Thu, 16 Jun 94 13:41:36 EDT
--* Received: from vinci.inf.ethz.ch (bronstei@vinci.inf.ethz.ch [129.132.12.46]) by inf.ethz.ch (8.6.8/8.6.6) with ESMTP id TAA19159 for <asbugs@watson.ibm.com>; Thu, 16 Jun 1994 19:41:33 +0200
--* From: Manuel Bronstein <bronstei@inf.ethz.ch>
--* Received: (bronstei@localhost) by vinci.inf.ethz.ch (8.6.8/8.6.6) id TAA16521 for asbugs@watson.ibm.com; Thu, 16 Jun 1994 19:41:32 +0200
--* Date: Thu, 16 Jun 1994 19:41:32 +0200
--* Message-Id: <199406161741.TAA16521@vinci.inf.ethz.ch>
--* To: asbugs@watson.ibm.com
--* Subject: [5] -p or -pg don't work [profbug.as][0.35.0 [=]]

--@ Fixed  by:  SSD   Mon Nov 21 08:26:58 EST 1994 
--@ Tested by:  none 
--@ Summary:    unicl was not passing the -p flag to the linker under sungcc. (This fix may not appear in v1.0.) 

--------------------------- profbug.as -----------------------------------
-- Compiling this with a profiling option (prof/gprof) just doesn't work:
-- vinci.inf.ethz.ch{bronstei} 226: asharp -Fx -p -o a.out profbug.as
-- ld: Undefined symbol
--    mcount
-- collect2: ld returned 2 exit status
-- vinci.inf.ethz.ch{bronstei} 227: asharp -Fx -pg -o a.out profbug.as
-- ld: Undefined symbol
--    mcount
-- collect2: ld returned 2 exit status
--

#include "aslib.as"

import from SingleInteger;

hello(p:OutPort):OutPort == p("hello")();

for i in 1..10 repeat hello(print);