len_trim(cadena): Longitud ignorando los espacios en blanco finales¶

Longitud de una cadena de caracteres que ignora los caracteres en blanco finales.

Declaración¶

Sintaxis¶

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

Argumentos¶

string el valor de entrada del tipo de carácter.

Valor devuelto¶

El valor de retorno es de tipo entero sin signo.

Descripción¶

len_trim(cadena) devuelve la longitud del argumento de carácter sin incluir los caracteres en blanco finales.

Tipos¶

El tipo de argumento admitido es un carácter.

interface repeat
    module procedure repeati32, repeati64
end interface

contains

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

Ejemplos¶

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

Result:

Ver también¶

lge.