2 ! Tests the fix for PR27709 in which the specification expression on
3 ! line 22 was not resolved because of the multiple component references.
5 ! Contributed by David Ham <David@ham.dropbear.id.au>
10 type(ele_numbering_type
), pointer :: numbering
12 type ele_numbering_type
13 integer, dimension(:,:), pointer :: number2count
14 end type ele_numbering_type
16 module global_numbering
20 function element_local_coords(element
) result (coords
)
21 type(element_type
), intent(in
) :: element
22 real, dimension(size(element
%numbering
%number2count
, 1)) :: coords
24 end function element_local_coords
25 end module global_numbering
28 type (element_type
) :: e
29 type (ele_numbering_type
), target
:: ent
30 allocate (ent
%number2count (2,2))
32 print *, element_local_coords (e
)