ex0919.f90

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

program ex0919
  implicit none
  integer :: a, b, c
  namelist /na/ a,b,c
  read (*,nml=na) 
  write(*,nml=na) 
  stop
end program