mix4f.for

开放源码的编译器open watcom 1.6.0版的源代码

* MIX4F.FOR - This FORTRAN program calls a function written
*	      in C and passes it a string.
*
* Compile/Link: wfl[386] mix4f mix4c.obj /fe=mix4

*$pragma aux cstr "!_" parm (value)

	program mix4f

	character*80 forstring

	forstring = 'This is a FORTRAN string'//char(0)
	call cstr( forstring )
	end