Clicky
Showing changes from revision #3 to #4:
(追記) Added (追記ここまで) | (削除) Removed (削除ここまで) | (削除) Chan (削除ここまで)(追記) ged (追記ここまで)
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 (削除ここまで)(追記) 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