← Back to branch summary

~ubuntu-branches/debian/stretch/adabrowse/stretch

« back to all changes in this revision

Viewing changes to simple_test/test-privstuff.ads

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2004-02-14 13:22:40 UTC
  • Revision ID: james.westby@ubuntu.com-20040214132240-cqumhiq1677pkvzo
Tags: upstream-4.0.2
Import upstream version 4.0.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
simple_test/test-privstuff.ads
 
1
package Test.PrivStuff is
 
2
 
 
3
   type A_Type is private;
 
4
 
 
5
   type B_Type;
 
6
 
 
7
   type B_Type is
 
8
      record
 
9
         X : Natural := 0;
 
10
      end record;
 
11
 
 
12
private
 
13
 
 
14
   type A_Type is tagged
 
15
      record
 
16
         X : B_Type;
 
17
      end record;
 
18
 
 
19
   type C_Type;
 
20
 
 
21
   type C_Type is new A_Type with null record;
 
22
 
 
23
   type D_Type is
 
24
      record
 
25
         X : Integer := - 1;
 
26
      end record;
 
27
 
 
28
   type E_Type;
 
29
 
 
30
end Test.PrivStuff;