From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,fe441248ffa1c543,start
X-Google-Attributes: gid103376,public
From: Anders Eliasson <eliasson@msfc.nasa.gov>
Subject: What's wrong with this?
Date: 1997/05/16
Message-ID: <Pine.LNX.3.95.970516102645.7251A-100000@vf700f.msfc.nasa.gov>#1/1
X-Deja-AN: 241933203
Organization: NASA/MSFC
Newsgroups: comp.lang.ada
Date: 1997-05-16T00:00:00+00:00
List-Id: <comp.lang.ada>


Will someone tell me why this:

with Text_Io; Use Text_Io;
procedure Header is
begin
  put_line ("Header");
end;
pragma Export (C, Header, "Header");

when compiled ( gcc -c filename ), generates the following error:

'pragma "Export" requires separate spec and must come before body'.

The example is directly out of the GNAT Documents INTRO Rev 1.98, from
the section 'Building a Program where the Main Program is not in Ada'.  I
have now seen various examples with 'pragma Export' used this way, the
implication is that this should work.

AE

Anders C. Eliasson
eliasson@logan.msfc.nasa.gov