! get the length of a word
PROGRAM ex7_3

  IMPLICIT NONE
  INTEGER :: len
  CHARACTER(LEN=50):: word             ! 50字以下とする

  DO
    PRINT '(1X, A)', 'Input a word:'
    READ '(A50)', word
    IF ( word == "" ) EXIT             ! 空行なら終了する
    DO len = 1, 50
      IF ( word(len:len) == " ") EXIT  ! 最初の空白の位置
    END DO
    PRINT '(1X, "word length = ", I2)', len-1
  END DO

END PROGRAM ex7_3