subroutine fortran_func(i, f, s)
	integer i
	real f
	character *(*) s

	write(*, *) 'i is ', i
	write(*, *) 'f is ', f
	write(*, *) 's is ', s
end !subroutine fortran_func
