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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.68.125.134 with SMTP id mq6mr37703616pbb.7.1417267719979;
        Sat, 29 Nov 2014 05:28:39 -0800 (PST)
X-Received: by 10.140.92.176 with SMTP id b45mr4582qge.10.1417267719917; Sat,
 29 Nov 2014 05:28:39 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!h15no2247330igd.0!news-out.google.com!m4ni576qag.1!nntp.google.com!w8no3359734qac.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 29 Nov 2014 05:28:39 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=86.176.91.16;
 posting-account=pmkN8QoAAAAtIhXRUfydb0SCISnwaeyg
NNTP-Posting-Host: 86.176.91.16
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <af35fb37-1471-424c-aff3-322886b32774@googlegroups.com>
Subject: Help with an errant 'IF' statement please.
From: Austin Obyrne <austin.obyrne@hotmail.com>
Injection-Date: Sat, 29 Nov 2014 13:28:39 +0000
Content-Type: text/plain; charset=ISO-8859-1
X-Received-Bytes: 2497
X-Received-Body-CRC: 2626758664
Xref: news.eternal-september.org comp.lang.ada:23779
Date: 2014-11-29T05:28:39-08:00
List-Id: <comp.lang.ada>

A subset of a larger program is shown below.

This is an IF statement that just won't work and the same has happened in the past on other occasions in this very same program alone while working ok in other parts of the same program further on as well as being ok in other loops. 

It works fine also in other programs in different loops but for some unknown (to me) reason it just won't work here in this loop on this occasion.

I have tried everything to no avail.

Maybe there is some basic syntax that I am contravening in this type of Loop.

Your usual help would be greatly appreciated.

The 'GET' function is intended to stall the run of the loop for viewing of the data.

(Start looking here Please:)

Line_Number : Integer;  

Sentinel : CONSTANT Character:= '~';

Line_Number:= 0;
  
LOOP
  EXIT WHEN NextChar = Sentinel;
  Line_Number:= Line_Number+1;
  Ada.Text_IO.New_Line(1);
  Ada.Text_IO.Put(Item => "                          - Character number ");
  Ada.Integer_Text_IO.Put(Item => Line_Number, Width => 1);
  Ada.Text_IO.New_Line(1);
   
 
    IF Total REM 12 = 0 THEN
      Ada.Text_IO.New_Line(1);
      Ada.Text_IO.Put(Item => "                       ");
      Ada.Text_IO.Put(Item => " # - press any key/return to continue > ");
      Ada.Text_IO.Get(Item => View);
    END IF;

  Ada.Text_IO.New_Line;
  Ada.Text_IO.Put(Item => "  ----------------------------------------------------------------");
  END LOOP;
  ?

Austin O' Byrne - aka adacrypt.