! 例題 7-3  単語の長さ ［空白文字と空行 ］
PROGRAM ex7_3

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

  loop1: DO
           PRINT *, 'Input a word, or an empty line to stop:'
           READ '( A20 )', word
           IF ( word == '' ) EXIT loop1
  loop2:   DO len = 1, 20
             IF ( word( len : len ) == ' ' ) EXIT loop2
           END DO loop2
           PRINT '( 1X, "Word length = ", I2 )', len - 1
         END DO loop1

END PROGRAM ex7_3