子程序调用问题

fcode

我分别用 ifort，gfortran，ftn95 三个编译器编译，都成功了，并未出现您描述的问题。