我按您所述，特意写了一段代码，用 Intel Visual Fortran 12.0，严格检查，
不能重复您的问题。

请提供精简后，且能反映问题的最简单代码。
另外您用什么编译器呀？

module GlobalVariable
  implicit none
  
  real:: x
end module



program main
  use GlobalVariable
  implicit none
  read(*, *) x
  write(unit = *, fmt = *) x
  
  stop
end program main