15 lines
306 B
Fortran
15 lines
306 B
Fortran
* 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
|