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=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6263e92aa8cc0c35,start
X-Google-Attributes: gid103376,public
From: "Greg Kelley" <gkelley@css.tayloru.edu>
Subject: Serious problem: Begin ignored! Please help!
Date: 1997/10/17
Message-ID: <01bcdb4d$2929c7e0$90f11ece@mckee>#1/1
X-Deja-AN: 281345230
Organization: NetUSA1 Inc.	
Newsgroups: comp.lang.ada
Date: 1997-10-17T00:00:00+00:00
List-Id: <comp.lang.ada>


I have been trying for hours to get rid of the following error and keep
hitting brick walls
Someone please give me some assistance. I am programming on a DEC machine.

The error is:

BEGIN
^
ada: Error: machine_problem_1.ada, line 39: Ignored reserved-word "begin"

And my program (up to the error is:

WITH Fractions, G_Stack, Text_IO, Integer_Text_IO;
USE  Fractions, Text_IO, Integer_Text_IO;

PROCEDURE Machine_Problem_1 IS

Expression : String(1..80);
Expression_Length : integer;
temp :  String(1..20);
temp_frac :  fraction_type;
temp_frac1 :  fraction_type;
Start :  integer;
Times : boolean;
Total : fraction_type;


  PROCEDURE Convert(frac_string   : IN string;
                    string_length : IN integer;
                    frac          : OUT fraction_type) IS

    I : integer;

  BEGIN
    I := 1;
    LOOP
    EXIT WHEN Line(I) = '/';             -- Find location of '/'
      IF I = Length
        THEN I := 0;
             EXIT;
      END IF;
      I := I + 1;
    END LOOP;
    IF I = 0                            -- Create new fraction
      THEN Frac := (Fraction (Integer'Value(Line(1..Length))));
      ELSE Frac := (Integer'Value (Line(1..(I-1)))) /
                             (Integer'Value(Line((I+1)..Length)));
    END IF;
  END Convert;

BEGIN       --error line! 

I know it's probably something not to difficult and I'm just over looking
the problem.

I greatly appreciate your time and if you could answer via e-mail I would
greatly appreciate it.

gkelley@css.tayloru.edu