namel2.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 14 行

      CHARACTER*30 INTFIL(4)
      CHARACTER*20 NAME
      INTEGER AGE
      NAMELIST /PERSON/ NAME, AGE
      NAMELIST /ARRAY/ INTFIL

      READ PERSON
      PRINT PERSON
      WRITE( INTFIL, PERSON )
      PRINT ARRAY
      READ ARRAY
      PRINT ARRAY
      END