MODULE com_init_read
      USE, INTRINSIC    :: iso_c_binding, ONLY : c_int, c_float
      INTEGER(c_int) :: i
      REAL(c_float)  :: r
      COMMON /com/ i, r
      BIND(c) :: /com/
      END MODULE com_init_read

      SUBROUTINE init_read() BIND(C,NAME='init_read')
      USE com_init_read

      i = 786
      r = 3.2

      END SUBROUTINE init_read