Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | a | ||||
integer, | public | :: | b | ||||
type(debug), | public | :: | err |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(my_type), | intent(in) | :: | this | |||
integer, | intent(in) | :: | a |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(my_type), | intent(inout) | :: | this | |||
integer, | intent(in) | :: | a |
type my_type integer :: a, b type(debug) :: err contains procedure :: my_function procedure :: my_subroutine end type my_type