ex0920.f90

来自「Fortran 95程序设计&Code-彭国伦」· F90 代码 · 共 11 行

program ex0920
  implicit none
  integer :: a(3)
  namelist /na/ a

  open(10, file="ex0920.txt")
  read (10,nml=na) 
  write(*,"(3I2)") a

  stop
end program