Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=20), | public | :: | color | = | 'red' | ||
integer, | public | :: | x | = | 0 | ||
integer, | public | :: | y | = | 0 |
type point
integer :: x=0
integer :: y=0
character(len=20) :: color='red'
endtype point