Lines Matching refs:base_t
11 type, abstract :: base_t type
16 end type base_t
18 type, extends (base_t) :: t
24 class (base_t), intent(in) :: obj
42 obj%base_t%i = 2
43 print *, obj%base_t%i
50 obj%base_t%i = 4
51 call obj%base_t%write_i ! { dg-error "is of ABSTRACT type" }
59 obj%base_t%i = 6
60 obj%base_t%write_procptr => base_write_i
61 call obj%base_t%write_procptr ! { dg-error "is of ABSTRACT type" }