LINNIG@eg.csc.ti.COM (Mike Linnig) (04/29/88)
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