bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

ACT #258 - Code 4


From: Bartz, Darrell
Subject: ACT #258 - Code 4
Date: Mon, 10 Sep 2001 11:15:23 -0700

The following hello.ada was opened and a build attempted using GNAT
Integrated Environment 3.14.a1.

-- hello world
with Ada.Text_IO;
  
procedure Hello is
   Target_Counter,Counter_Type:Integer;
   Activated:Boolean:=False;
   Is_Correct, Triggered:Boolean;
   Positions:Float;
   type Range_Distance is digits 9 range 0.0 .. 10_000.0;
   type Hours is mod 0..23;
   type Days_Of_Week is(Mon, Tue, Wed, Thu, Fri, Sat, Sun);
   subtype Count is Counter_Type;
   subtype Max_Value is Counter_Type:=10;
   subtype Target_Range is Range_Distance:=0;
   subtype X is Positions:=1.0;
   subtype Y is Positions:=1.0;
   subtype Z is Positions:=0.0;
   subtype Start_Hour is Hours:=23;
   subtype Today is Days_Of_Week:=Tue;
   subtype Tomorrow is Days_of_Week;
begin
   Ada.Text_IO.Put_Line("Hello, world!");
   --
--   Z:=X+Y;
   --
--   Start_Hour:=Start_Hours+2;
--   if Start_Hour>3 then
--      Is_Correct:=False;
--      else
--      Is_Correct:=True;
--   end if;
   --
--   case Today is
--      when Mon => Tomorrow:=Tue;
--      when Tue => Tomorrow:=Wed;
--      when Wed => Tomorrow:=Thu;
--      when Thu => Tomorrow:=Fri;
--      when Fri => Tomorrow:=Sat;
--      when Sat => Tomorrow:=Sun;
--      when Sun => Tomorrow:=Mon;
--   end case;
   --
--   while Count <= Max_Value loop
--      Count:=Count+1;
--   end loop;
   --
--   if Is_Correct:=True then
--      Ada.Text_IO.Put_Line("Correct answer found");
--   else
--      Ada.Text_IO.Put_Line("Wrong answer");
end Hello;

The following message resulted from the attempted build.  
----------------------------------------------------------------------------
------------------------------------------------
cd d:\Ada\Hello\
cd /d d:\\Ada\\Hello\\ && gnatmake -o hello hello -g -cargs -gnatq -gnatQ
-bargs  -largs 
gcc -c -g -gnatq -gnatQ hello.adb
gnat1: invalid switch: Q
gnatmake: "hello.adb" compilation error

Compilation exited abnormally with code 4 at Mon Sep 10 12:35:06

When I compile the file from the GLIDE compile pull down menu the compile
completes fine.  When I build the file I get the indicated "code 4".  What
is happening and 
how can I change switch settings for the compiler


Darrell Bartz
The Boeing Company
> Senior Specialist Engineer
SETE - Commercial Tool Support
P.O. Box 516, S106-6094
St. Louis, MO  63166
Boeing Office Phone: (314)234-5915 (Mon & Tue)
Work@Home Phone: (636) 379-2192 (Wed & Thurs)
e-mail: darrell.bartz@boeing.com
pager: (314) 318-5390




reply via email to

[Prev in Thread] Current Thread [Next in Thread]