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=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE autolearn=no autolearn_force=no version=3.4.4 Path: utzoo!mnetor!uunet!husc6!cmcl2!brl-adm!umd5!purdue!decwrl!ucbvax!eg.csc.ti.COM!LINNIG From: LINNIG@eg.csc.ti.COM (Mike Linnig) Newsgroups: comp.lang.ada Subject: Tartan Ada results for conformance test Message-ID: <8805062254.AA18640@ti.com> Date: 29 Apr 88 14:12:00 GMT Sender: daemon@ucbvax.BERKELEY.EDU Organization: The Internet List-Id: The Tartan Ada cross compiler for the 1750A processor catches the duplicate definition.... Mike Linnig, Texas Instruments ---------------------------------------------------------------------- TARTAN Ada VMS/1750A, Version V1.01 *** First error or warning is on line 6 1|package paramtest is 2| procedure string_in ( a_string : in string := "default value"); 3|end paramtest; 4| 5|package body paramtest is 6| procedure string_in ( a_string : in string := "other default value") ^1 *** 1 Error 2100: Duplicate declaration (8.3) *** Next error or warning is on line 17 | is 7| begin 8| null; 9| end string_in; 10|end paramtest; 11| 12|package paramtest2 is 13| procedure integer_in ( an_integer : in integer := 15 ); 14|end paramtest2; 15| 16|package body paramtest2 is 17| procedure integer_in ( an_integer : in integer := 25 ) is ^1 *** Previous error or warning was on line 6 *** 1 Error 2100: Duplicate declaration (8.3) 18| begin 19| null; 20| end integer_in; 21|end paramtest2; 22| 23| *** Last error or warning was on line 17 *** Errors: 2, Warnings: 0