functionis_program_unitpureprivate
pure logical function is_program_unit(kind)
True if entities of kind are program units. The permission of a module is what its members get
by default, so display says nothing about whether the module itself is shown.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| kind | integer | in | the kind of entity |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| is_program_unit | logical |
Source
Show the code
pure logical function is_program_unit(kind)
integer, intent(in) :: kind !! the kind of entity
is_program_unit = kind == E_MODULE .or. kind == E_SUBMODULE .or. kind == E_PROGRAM .or. kind == E_BLOCKDATA
end function is_program_unit