len_trim(string): 忽略尾随空格的长度

忽略尾随空白字符的字符串长度。

声明

语法

retval = len_trim(string)
integer elemental function len_trim(string)

参数

string 字符类型的输入值。

返回值

返回值是无符号整数类型。

描述

len_trim(string) 返回字符参数的长度，不包括尾随空白字符。

类型

支持的参数类型是字符标量。

interface repeat
    module procedure repeati32, repeati64
end interface

contains

integer elemental function len_trim(string)
    character(len=*), intent(in) :: string
end function

示例

program intrinsics_len_trim
    implicit none
    character(*), parameter :: s1 = " A B "
    integer:: retval
    retval = len_trim(s1)
    print *, retval
end program

结果：

4

也可以看看

lge.