CHARACTER (LEN = 4 ) :: mot1, mot2, mot3, mot4 CHARACTER (LEN = 10) :: res mot1 = 'LO'//'OP' ! mot1 contient LOOP mot2 = 'HOLE' mot3 = mot1(4:4)//mot2(2:4) ! mot3 contient POLE mot4 = mot2(2:2)//mot1(3:4)//'F' ! mot4 contient OOPF res = mot3//' '//mot1 ! res contient POLE LOOPmot2(2:4) représente une sous-chaîne de caractère de longueur 3 et elle contient le deuxième, troixième et quatrième caractères de la chaîne mot2.