File: test-enum_use.ads

package info (click to toggle)
adabrowse 4.0.2-5
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 2,332 kB
  • ctags: 253
  • sloc: ada: 29,773; makefile: 160; ansic: 4
file content (16 lines) | stat: -rw-r--r-- 262 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
with Test.Enum;
package Test.Enum_Use is

  use Test.Enum;
  
  type My_Enum is new Enumeration;
  
  X : constant My_Enum := C;
  
  type ZXY is new XYZ;
  
  procedure Do_Foo (X : in out ZXY) renames Do_Bar;
  
  Q : ZXY := 17 + ZXY (3);
  
end Test.Enum_Use;