Program A
call bbb( c )
contains
 subroutine c()
   write(*,*) 'ccc'
 end subroutine c
 
End

Subroutine bbb( cc )
  interface
    subroutine cc()
    end subroutine cc
  end interface
  call cc()
End Subroutine bbb

这个代码我在 IVF 上可以执行，但有个警告：
1>Compiling with Intel(R) Visual Fortran 11.1.035 [IA-32]...
1>Source1.f90
1>F:\t\Console1\Source1.f90(2): warning #7601: F2003 standard does not allow an internal procedure to be an actual argument procedure name. (R1214.4).   [C]

所以我想其他编译器可能不允许执行。

那么楼主可以把 c 写成外部程序，不用 contains。

用 Module 在主程序a和子程序c之间共享数据

多谢了