CHARACTER(LEN=10) :: cadena_fija

CHARACTER(LEN=*) :: cadena_variable

cadena_fija = 'Hola'
cadena_variable = 'Mundo'

CHARACTER(LEN=20) :: cadena1, cadena2, resultado

cadena1 = 'Hola'
cadena2 = ' Mundo'
resultado = cadena1 // cadena2
! resultado ahora contiene 'Hola Mundo'

IF (cadena1 == cadena2) THEN
    PRINT *, 'Las cadenas son iguales'
ELSE
    PRINT *, 'Las cadenas son diferentes'
END IF

INTEGER :: longitud
longitud = LEN(cadena1)

CHARACTER(LEN=20) :: cadena_con_espacios, cadena_sin_espacios
cadena_con_espacios = 'Hola     '
cadena_sin_espacios = TRIM(cadena_con_espacios)

CHARACTER(LEN=20) :: cadena_ajustada
cadena_ajustada = ADJUSTL('Hola')

INTEGER :: posicion
posicion = INDEX('Hola Mundo', 'Mundo')

PROGRAM ejemplo_cadenas
    CHARACTER(LEN=10) :: cadena1, cadena2, resultado

    cadena1 = 'Hola'
    cadena2 = ' Mundo'
    resultado = cadena1 // cadena2

    PRINT *, 'Resultado de la concatenación: ', resultado

    IF (resultado == 'Hola Mundo') THEN
        PRINT *, 'Las cadenas son iguales'
    ELSE
        PRINT *, 'Las cadenas son diferentes'
    END IF
END PROGRAM ejemplo_cadenas

PROGRAM funciones_cadenas
    CHARACTER(LEN=20) :: cadena
    INTEGER :: longitud, posicion

    cadena = '   Hola Mundo   '
    longitud = LEN(cadena)
    PRINT *, 'Longitud de la cadena: ', longitud

    cadena = TRIM(cadena)
    PRINT *, 'Cadena sin espacios: ', cadena

    posicion = INDEX(cadena, 'Mundo')
    PRINT *, 'Posición de "Mundo": ', posicion
END PROGRAM funciones_cadenas

PROGRAM concatenar_cadenas
    CHARACTER(LEN=50) :: cadena1, cadena2, resultado

    PRINT *, 'Introduce la primera cadena:'
    READ *, cadena1
    PRINT *, 'Introduce la segunda cadena:'
    READ *, cadena2

    resultado = TRIM(cadena1) // ' ' // TRIM(cadena2)
    PRINT *, 'Cadena resultante: ', resultado
END PROGRAM concatenar_cadenas

PROGRAM contar_caracteres
    CHARACTER(LEN=100) :: cadena
    INTEGER :: i, contador

    PRINT *, 'Introduce una cadena:'
    READ *, cadena

    contador = 0
    DO i = 1, LEN_TRIM(cadena)
        IF (cadena(i:i) /= ' ') THEN
            contador = contador + 1
        END IF
    END DO

    PRINT *, 'Número de caracteres (sin espacios): ', contador
END PROGRAM contar_caracteres