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.2 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	FROM_STARTS_WITH_NUMS autolearn=no autolearn_force=no version=3.4.4
X-Received: by 10.107.31.137 with SMTP id f131mr6924876iof.7.1516887226544;
        Thu, 25 Jan 2018 05:33:46 -0800 (PST)
X-Received: by 10.157.44.232 with SMTP id e37mr862002otd.11.1516887226402;
 Thu, 25 Jan 2018 05:33:46 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!border1.nntp.ams1.giganews.com!nntp.giganews.com!peer02.ams1!peer.ams1.xlned.com!news.xlned.com!peer02.am4!peer.am4.highwinds-media.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!g80no534695itg.0!news-out.google.com!s63ni5000itb.0!nntp.google.com!w142no533834ita.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 25 Jan 2018 05:33:46 -0800 (PST)
In-Reply-To: <p4bio0$s3b$1@franka.jacob-sparre.dk>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=85.242.255.128;
 posting-account=rhqvKAoAAABpikMmPHJSZh4400BboHwT
NNTP-Posting-Host: 85.242.255.128
References: <3d796e5f-015e-469c-bbcb-edc3303793ab@googlegroups.com>
 <p4bio0$s3b$1@franka.jacob-sparre.dk>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <3c342468-67da-4973-a318-14e0cf1293fb@googlegroups.com>
Subject: Re: no + or - defined for fixed point types in Standard, why ?
From: Mehdi Saada <00120260a@gmail.com>
Injection-Date: Thu, 25 Jan 2018 13:33:46 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Body-CRC: 3148376182
X-Received-Bytes: 1885
Xref: reader02.eternal-september.org comp.lang.ada:50142
Date: 2018-01-25T05:33:46-08:00
List-Id: <comp.lang.ada>

generic
   type Modele is delta <>;
package P_Proba1 is
   type T_Proba is private; 
   function "+" (
         Un,                   
         Deux : in     T_Proba ) 
     return T_Proba; 
private
	type T_proba is new MODELE range 0.1..1.0;
end P_Proba1;

package body P_Proba1 is
	function "+"
     (Un,                   
         Deux : in     T_Proba)
        return T_Proba is (P_Proba1."+"(UN,Deux));
end P_Proba1;

> program, you have to prefix by the package name that contains the operators : My code.
It causes infinite recursion (dixit compiler), so I didn't understand.