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.1 required=5.0 tests=BAYES_00,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,8c8e60f2e24893be
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-11-08 10:00:11 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!oleane.net!oleane!nnrp.oleane.net!not-for-mail
From: Reivilo Snuved <odevuns@iname.JUNK.com>
Newsgroups: comp.lang.ada
Subject: Re: premature usage of incomplete private type
Date: 08 Nov 2001 18:55:40 +0100
Organization: In Reverse
Sender: devuns@buzet
Message-ID: <st4ro5du5f.fsf@aonix.fr>
References: <43219ulgvi.cfu.robert-j@oberon.s-s-f.de>
NNTP-Posting-Host: gauntlet-fr.aonix.fr
X-Trace: s1.read.news.oleane.net 1005242139 11751 62.161.92.253 (8 Nov 2001
 17:55:39 GMT)
X-Complaints-To: abuse@oleane.net
NNTP-Posting-Date: Thu, 8 Nov 2001 17:55:39 +0000 (UTC)
X-Newsreader: Gnus v5.7/Emacs 20.4
Xref: archiver1.google.com comp.lang.ada:16077
Date: 2001-11-08T18:55:40+01:00
List-Id: <comp.lang.ada>

robert-j@gmx.de (Robert =?iso-8859-1?Q?J=E4schke?=) writes:

> Hello!
> 
> I'm writing a package for Rational-Arithmetics and there I've got a problem.
> I want to declare a constant of type Rational before the type itself is
> proper defined and I don't know how I can go around this problem:
[snip]

Try this : 

 package My_Math.Rational is
    type Rational is private;
    Zero : constant Rational;
 private
    type Rational is
       record
           Z : Integer;  --  Z�hler
           N : Integer;  --  Nenner
       end record;
    Zero : constant Rational := (Z => 0, N => 1);
 end My_Math.Rational;