1 2 3 4 5 6 | with Ada.Text_IO; use Ada.Text_IO; procedure Main is type Cargo is (Bar, Baz, Qux); begin Ada.Text_IO.Put_Line (Bar'Image); end Main; |
1 2 3 4 5 6 | with Ada.Text_IO; use Ada.Text_IO; procedure Main is type Cargo is (Bar, Baz, Qux); begin Ada.Text_IO.Put_Line (Bar'Image); end Main; |