PROGRAM trivial
        IMPLICIT NONE

        PRINT *, dotit('How, now, brown cow?')
        PRINT *, dotit('   Spaced out     ')

    CONTAINS

        PURE FUNCTION dotit (string)
            IMPLICIT NONE
            CHARACTER(LEN=*), INTENT(IN) :: string
            CHARACTER(LEN=LEN(STRING)) :: dotit

            dotit = TRIM(ADJUSTL(string)) // REPEAT('.', LEN(string))
        END FUNCTION dotit

    END PROGRAM trivial