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