| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=I4), | public | :: | lb1 | 
                 lower bound 1  | 
        |||
| integer(kind=I4), | public | :: | lb2 | 
                 lower bound 2  | 
        |||
| integer(kind=I4), | public | :: | ub1 | 
                 upper bound 1  | 
        |||
| integer(kind=I4), | public | :: | ub2 | 
                 upper bound 2  | 
        
type tborne integer(kind=I4) :: lb1 !! lower bound 1 integer(kind=I4) :: ub1 !! upper bound 1 integer(kind=I4) :: lb2 !! lower bound 2 integer(kind=I4) :: ub2 !! upper bound 2 endtype tborne