! 例題 7-2  単語の文字の並べ替え ［文字列の結合演算 ］
PROGRAM ex7_2

  IMPLICIT NONE
  INTEGER :: i1, i2, i3, n = 1
  CHARACTER ( LEN = 4 ) :: w0, w1, w2, w( 1 : 24 )

  PRINT *, 'Input a word in 4 letters: '
  READ '( A )', w0

  DO i1 = 1, 4
    w1 = w0( i1 : i1 ) // w0( 1 : i1 - 1 ) // w0( i1 + 1 : 4 )
    DO i2 = 2, 4
      w2 = w1( 1 : 1 ) // w1( i2 : i2 ) // &
                          w1( 2 : i2 - 1 ) // w1( i2 + 1 : 4 )
      DO i3 = 3, 4
        w( n ) = w2( 1 : 2 ) // w2( i3 : i3 ) &
                       // w2( 3 : i3 - 1 ) // w2( i3 + 1 : 4 )
        n = n + 1
      END DO
    END DO
  END DO

  PRINT '( 12A5 )', w

END PROGRAM ex7_2