From: "Greg Kelley" <gkelley@css.tayloru.edu>
Subject: Serious problem: Begin ignored! Please help!
Date: 1997/10/17
Date: 1997-10-17T00:00:00+00:00 [thread overview]
Message-ID: <01bcdb4d$2929c7e0$90f11ece@mckee> (raw)
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
next reply other threads:[~1997-10-17 0:00 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-10-17 0:00 Greg Kelley [this message]
1997-10-19 0:00 ` Serious problem: Begin ignored! Please help! William & Melissa Thornton
1997-10-22 0:00 ` Robert S. White
1997-10-20 0:00 ` Tucker Taft
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox