1、关于codeblocks IDE的极速安装请参考百度经验<<Windows下极速搭建fortran开发环境>>
5、编写主程序测试函数的返回值：======================================== implicit none character(len=255)::str integer::n str="168" n=4 print *, "*****************************************" print *, "函数运行之前，n=",n n=dy2003310(str,n) print *, "函数运行之后，n=",n print *, "*****************************************"
7、运行、测试结果如下可以看到：函数调用前参数2等于4调用后函数返回一个值8并将其赋给了参数2
