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/
ENDMODULE com_init_read
SUBROUTINE init_read ( ) BIND(C,NAME=’ init_read ’ )
USE com_init_read
i = 786
r = 3.2
END SUBROUTINE init_read