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