module m
  use ISO_C_BINDING, only : C_CHAR, C_INT, C_FLOAT
contains
  SUBROUTINE concatenation( lg_chaine, reel, tab_car) bind(C,name='concat')
    INTEGER(kind=C_INT)                          :: lg_chaine
    REAL(kind=C_FLOAT)                           :: reel
    CHARACTER(kind=C_CHAR), dimension(lg_chaine) :: tab_car
    !
    CHARACTER(kind=C_CHAR,len=lg_chaine)         :: chaine
    !write( chaine, '(*(a))' ) tab_car ! Format => Fortran 2008
    ! ou bien
    do i=1,lg_chaine
      chaine(i:i) = tab_car(i)
    end do
    !
    chaine    = TRIM(chaine)//' et chaîne_Fortran'
    lg_chaine = LEN_TRIM(chaine)
    reel      = 100.0
  END SUBROUTINE concatenation
end module m