Lines Matching defs:base
7 ! Before TYPE(ext)'s .tr. wrongly called the base type's trace
14 type, public :: base
20 end type base
23 class(base), intent(in) :: this
25 ! write(*,*) 'executing base'
35 public :: base, base_cnt
36 type, public, extends(base) :: ext
49 trace_ext = .tr. this%base + (0.0, 1.0) * ( this%i(1,1) + this%i(2,2) )
56 type(base) :: o
60 ! Note: ext's ".tr." (trace_ext) calls also base's "trace"