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=0.1 required=5.0 tests=BAYES_05,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,8fe003b966ed27e4
X-Google-Attributes: gid103376,public
From: Richard Curnow <richard@curnow.demon.co.uk>
Subject: Re: Newbe compile problems
Date: 1996/12/16
Message-ID: <m2d8waji5g.fsf@curnow.demon.co.uk>#1/1
X-Deja-AN: 204486138
x-nntp-posting-host: curnow.demon.co.uk
references: <32B437AC.209EE9B8@freenet.victoria.bc.ca>
organization: Myself
newsgroups: comp.lang.ada
Date: 1996-12-16T00:00:00+00:00
List-Id: <comp.lang.ada>


James Amendolagine <uq274@freenet.victoria.bc.ca> writes:

> 
>  with Float_Text_IO;
>  use Float_Text_IO;
>  procedure Think is
>    A, B : Float := 0.0; -- A and B initially zero; note the period.
>    I, J : Integer := 1;
>  begin
>    A := B + 7.;       <<<<<<<<<<<< NEEDS TO BE 7.0 not 7.
>    I := J * 3;
>    B := Float(I) + A;
>    Put(B);
>  end Think;
> 
> And the error message:
> 
> cd /home/jamie/learnAda/think/
> gnatmake think.adb 
> gcc -c think.adb
> think.adb:7:14: real literal cannot end with point

When I made the change to the line after 'begin', it worked fine (except
I had to comment out the with, use and Put lines because I didn't have
that package visible).  This was with gnat 3.04 on Linux.

-- 
Richard P. Curnow
Stevenage, England