20楼: Originally posted by virtualzx at 2013-11-15 06:39:44
在fun.f90里，把
real,intent(out)::z
改为
real::z
然后在main.f90里，把
real, external :: fun
改为
real, external :: funm
然后再编译就行了。

$ gfortran *.f90 -o test.x
$ ./test.x
   8.00 ...