2 ! Tests the fix for PR36526, in which the call to getStrLen would
3 ! generate an error due to the use of a wrong symbol in interface.c
5 ! Contributed by Bálint Aradi <aradi@bccms.uni-bremen.de>
16 pure
function getT1Len(self
) result(t1len
)
17 type(T1
), pointer :: self
20 t1len
= getStrLen(self
%str
)
25 pure
function getStrLen(str
) result(length
)
26 character(*), intent(in
) :: str
29 length
= len_trim(str
)
31 end function getStrLen
40 type(T1
), pointer :: pT1
44 write (*,*) getT1Len(pT1
)