adjustr(string)
will right adjust a string by removing trailing spaces. Spaces are inserted at the start of the string as needed.
Fortran 95 and later
Elemental function
result = adjustr(string)
string
- the type shall be character
.The return value is of type character
and of the same kind as string
where trailing spaces are removed and the same number of spaces are inserted at the start of string
.
program test_adjustr
character(len=20) :: str = 'gfortran'
str = adjustr(str)
print *, str
end program test_adjustr