PROGRAM mjono_testi
  IMPLICIT NONE
  WRITE (*,*) isot_merkit('Merkkijono')
CONTAINS
  FUNCTION isot_merkit(mjono) RESULT(uusi)
    IMPLICIT NONE
    CHARACTER(LEN=*) :: mjono
    CHARACTER(LEN=LEN(mjono)) :: uusi
    INTEGER, PARAMETER :: ero = IACHAR('A') - IACHAR('a')
    INTEGER :: i
    uusi = mjono
    DO i = 1, LEN_TRIM(uusi)
      SELECT CASE (uusi(i:i))
        CASE('a':'z')
          uusi(i:i) = CHAR(IACHAR(uusi(i:i)) + ero)
      END SELECT
    END DO
  END FUNCTION isot_merkit
END PROGRAM mjono_testi