| package Pck is | |
| My_Global_Variable : Integer := 1; | |
| Exported_Capitalized : Integer := 2; | |
| pragma Export (C, Exported_Capitalized, "Exported_Capitalized"); | |
| Local_Identical_One : Integer := 4; | |
| Local_Identical_Two : Integer := 8; | |
| External_Identical_One : Integer := 19; | |
| package Inner is | |
| Inside_Variable : Integer := 3; | |
| end Inner; | |
| procedure Proc (I : Integer); | |
| end Pck; |