ex0919.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 9 行

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