← Back to branch summary

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

« back to all changes in this revision

Viewing changes to test/tfw_naming.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/tfw_naming.adb
 
1
with Ada.Unchecked_Deallocation;
 
2
with Xfw_Pack;
 
3
pragma Elaborate_All (Xfw_Pack);
 
4
 
 
5
procedure Tfw_Naming is
 
6
 
 
7
   type String_Access is access String;
 
8
   type Integer_Access is access Integer;
 
9
 
 
10
   procedure Free is new Ada.Unchecked_Deallocation (String, String_Access);
 
11
   procedure Free is new Ada.Unchecked_Deallocation (Integer, Integer_Access);
 
12
 
 
13
   procedure P is
 
14
   begin
 
15
      null;
 
16
   end P;
 
17
 
 
18
   procedure P (I : in Integer) is
 
19
   begin
 
20
      null;
 
21
   end P;
 
22
 
 
23
   procedure Q is
 
24
   begin
 
25
      null;
 
26
   end Q;
 
27
 
 
28
   procedure Q (I : in Integer) is
 
29
   begin
 
30
      null;
 
31
   end Q;
 
32
 
 
33
   X : Integer'Base;
 
34
begin
 
35
   X := Integer'Base'First;
 
36
 
 
37
exception
 
38
   when Constraint_Error =>
 
39
      null;
 
40
 
 
41
   when Program_Error =>
 
42
      Q (1);
 
43
      Q;
 
44
      P(1);
 
45
 
 
46
   when others =>
 
47
      xfw_pack.Proc_1;
 
48
 
 
49
end Tfw_naming;