← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/adacontrol/jaunty

« back to all changes in this revision

Viewing changes to test/t_default_parameter.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2006-08-24 08:44:11 UTC
  • Revision ID: james.westby@ubuntu.com-20060824084411-1r15uio1h75lqgpx
Tags: upstream-1.4r20
Import upstream version 1.4r20

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_default_parameter.adb
 
1
with Ada.Text_IO;
 
2
procedure T_default_parameter is
 
3
   use Ada.Text_Io;
 
4
 
 
5
   generic
 
6
      X,Y : Integer := 0;
 
7
   package Gen is end Gen;
 
8
 
 
9
   package Inst1 is new Gen (1);
 
10
 
 
11
   generic
 
12
      with package Pack is new Gen (1);
 
13
   package Gen_Gen is end Gen_Gen;
 
14
 
 
15
   package Inst2 is new Gen_Gen (Inst1);
 
16
 
 
17
   procedure Proc (X, Y : Integer := 0) is
 
18
   begin
 
19
      null;
 
20
   end Proc;
 
21
 
 
22
   procedure Proc (X, Y : Float := 0.0) is
 
23
   begin
 
24
      null;
 
25
   end Proc;
 
26
begin
 
27
   Proc (1);
 
28
   Proc (Y => 1.0);
 
29
end T_default_parameter;
 
30