Searched refs:lenstr (Results 1 - 3 of 3) sorted by relevance
| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
| H A D | substr_4.f | 19 zsymel(3)(lenstr(zsymel(3))+1:)='X'
25 function lenstr(s) function in subroutine:test_lower
27 integer :: lenstr local in function:lenstr
29 lenstr = len_trim(s)
30 end function lenstr
51 zsymel(3)(:lenstr(zsymel(3))+1)='X'
57 function lenstr(s) function in subroutine:test_upper
59 integer :: lenstr local in function:lenstr
61 lenstr = len_trim(s)
62 end function lenstr
[all...] |
| /haiku-buildtools/legacy/gcc/libf2c/libU77/ |
| H A D | u77-test.f | 57 external lenstr, ctrlc
58 integer lenstr variable
70 WRITE (6,'(A/)') '1 GNU libU77 test at: ' // ctim(:lenstr (ctim))
84 + ctim2(:lenstr (ctim2)), ' vs. ', ctim(:lenstr (ctim))
98 print *, 'Arg ', i, ' is: ', line(:lenstr (line))
108 write (6,'(1X,A)') line(:lenstr(line))
112 + line(:lenstr (line))
131 write (6,*) 'Login name (GETLOG): ', lognam(:lenstr (lognam))
135 write (6,*) 'Login name (GETENV of LOGNAME): ', wd(:lenstr (w
379 integer function lenstr function
[all...] |
| /haiku-buildtools/gcc/mpc/src/ |
| H A D | inp_str.c | 83 size_t lenstr; local
105 lenstr = nread;
135 ret = sprintf (str + lenstr, "(%s", suffix);
137 n = lenstr + (size_t) ret;
|
Completed in 156 milliseconds