subroutinelink_constructorprivate
subroutine link_constructor(p, id)
Find the procedure or interface named like type id.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| p | type(project_t) | inout | the project | |
| id | integer | in | the type |
Calls
Source
Show the code
subroutine link_constructor(p, id)
type(project_t), intent(inout) :: p !! the project
integer, intent(in) :: id !! the type
p%list%box(id)%e%constructor = find_symbol(p, p%list%box(id)%e%parent, lowercase(p%list%box(id)%e%name), 1)
end subroutine link_constructor