This repository has been archived on 2024-12-16. You can view files and clone it, but cannot push or open issues or pull requests.
CodeBlocksPortable/WATCOM/samples/goodies/mix6.for

14 lines
256 B
Plaintext
Raw Normal View History

* MIX6.FOR - This FORTRAN program calls the C
* printf function.
* Compile/Link: wfl[386] mix6
*$pragma aux printf "!_" parm (value) caller []
program mix6
character cr/z0d/, nullchar/z00/
call printf( 'Value is %ld.'//cr//nullchar, 47 )
end