数据块子程序赋初值问题

楚香饭

1.强烈建议放弃 common
2.强烈建议用 Implicit None
3.您是否没有在子程序中定义 Hin ？

如下代码在我的编译器上没有问题。输出也正确。

[Fortran] 纯文本查看 复制代码

program www_fcode_cn
  COMMON/KIO/ KR, KS, KW, KEND, IH, HIN( 200), KOUT
  character(len=5) Hin
  call sub()
  write(*,*) KOUT
end program www_fcode_cn

subroutine sub()
  COMMON/KIO/ KR, KS, KW, KEND, IH, HIN( 200), KOUT
  character(len=5) Hin !// 这句你是不是丢了？
  DATA KR/ 5/, KS/ 2/, KW/ 6/, KOUT/ 12/ 
  write(*,*) 'subOK'
end subroutine sub