ex0918.f90

Fortran 95程序设计【彭国伦】第9章

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