Add support to procedure type in package/entity

```
package math_pack is
    -- This function calculates the base 2 logarithm of a number.
    --     a : in unsigned
    --         The number of which to calculate the logarithm
    procedure my_procedure (a : unsigned);


end package math_pack;

```

A wish same as the title.