5 ! Allow constructor to nonprivate parent compoents,
6 ! even if the extension specified PRIVATE for its own components
8 ! Contributed by Reinhold Bader
12 real, dimension(3) :: comp
15 type, extends(vec
) :: l_vec
17 character(len
=20) :: label
= '01234567890123456789'
23 type(vec
) :: o_vec
, oo_vec
24 type(l_vec
) :: o_l_vec
27 o_vec
= vec((/1.0, 2.0, 3.0/),3)
28 ! write(*,*) o_vec%comp, o_vec%len
29 o_l_vec
= l_vec(comp
=(/1.0, 2.0, 3.0/),len
=3)
30 ! partial constr. not accepted by ifort 11.1, fixed in 12.0 (issue 562240)
31 ! write(*,*) o_l_vec%comp, o_l_vec%len
32 ! write(*,*) o_l_vec%vec
35 if (abs(oo_vec
%comp(i
) - o_vec
%comp(i
)) > 1.0E-5) then