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 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,d20a6e14662ad471 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-10-24 12:54:19 PST Path: archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!supernews.com!newshub2.rdc1.sfba.home.com!news.home.com!news1.rdc1.sfba.home.com.POSTED!not-for-mail From: tmoran@acm.org Newsgroups: comp.lang.ada Subject: Re: Advice needed! Ada compilers for school project. References: X-Newsreader: Tom's custom newsreader Message-ID: Date: Wed, 24 Oct 2001 19:54:18 GMT NNTP-Posting-Host: 24.7.82.199 X-Complaints-To: abuse@home.net X-Trace: news1.rdc1.sfba.home.com 1003953258 24.7.82.199 (Wed, 24 Oct 2001 12:54:18 PDT) NNTP-Posting-Date: Wed, 24 Oct 2001 12:54:18 PDT Organization: Excite@Home - The Leader in Broadband http://home.com/faster Xref: archiver1.google.com comp.lang.ada:15150 Date: 2001-10-24T19:54:18+00:00 List-Id: > what Ada compiler would be best suited for students with no experience in Ada Look at Janus Ada for PCs. It has good compile time diagnostic messages, but it also has invaluable run-time diagnostics*. It's how I learned Ada. I'm sure RR has a reasonable academic price. www.rrsoftware.com * For instance it gives: ** Unhandled CONSTRAINT_ERROR Index or Subtype out of bounds - Pos of Error Value = 67 On Line Number 12 In TEST.DECREMENT Called from line number 18 In TEST.NEXT_DAY Called from line number 25 In TEST when you run: procedure test is type liquid is range 32 .. 212; type pleasant is range 68 .. 72; procedure decrement(x : in out liquid) is begin x := x-1; end decrement; procedure decrement(x : in out pleasant) is begin x := x-1; end decrement; procedure next_day(y : in out liquid; z : in out pleasant) is begin decrement(y); decrement(z); end next_day; water_temperature : liquid := 34; air_temperature : pleasant := 69; begin next_day(water_temperature, air_temperature); next_day(water_temperature, air_temperature); next_day(water_temperature, air_temperature); next_day(water_temperature, air_temperature); next_day(water_temperature, air_temperature); end test;