ex0918.f90

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

program ex0918
  implicit none
  integer :: a = 1, b = 2, c = 3
  namelist /na/ a,b,c
  write(*,nml=na)
  stop
end program