Searched refs:strparam3 (Results 1 – 2 of 2) sorted by relevance
337 character(len=6), parameter :: strparam3 = " abc" variable339 character(len=6) :: adjustr2 = adjustr(strparam3)351 type (t1), parameter:: t1_param4 = t1( adjustr(strparam3) )398 integer :: lentrim3 = len_trim(strparam3)436 character(len=6) :: trim3 = trim(strparam3)437 character(len = 12) :: trim4 = trim(strparam3)
125 character(len=6), parameter :: strparam3 = " abc" variable171 integer :: lentrim3 = len_trim(strparam3,KIND=4)