File: test-enum.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 (10 lines) | stat: -rw-r--r-- 149 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
 
package Test.Enum is

  type Enumeration is 
    (A, B, C, D);

  type XYZ is new Integer;
  
  procedure Do_Bar (X : in out XYZ);
  
end Test.Enum;