PROGRAM trivial
    IMPLICIT NONE
    INTEGER :: n

    CALL chars(n, 'Kilroy', 'was', 'here')
    PRINT *, n

CONTAINS

    SUBROUTINE chars (count, str1, str2, str3)
        IMPLICIT NONE
        INTEGER, INTENT(OUT) :: count
        CHARACTER(LEN=*), INTENT(IN) :: str1, str2, str3

        PRINT *, str1
        PRINT *, str2
        PRINT *, str3
        count = LEN(str1)+LEN(str2)+LEN(str3)
    END SUBROUTINE chars

END PROGRAM trivial