e_4_2_5.f90

Fortran77和90/95编程入门对应的程序源码

INTEGER bells(4) !07是响铃字符
CHARACTER(4) wys(3),cvar
DATA bells/4*7/,cvar/' is'/,wys/'What',' you',' see'/
OPEN(3,FILE='BSEQ',FORM='BINARY')
WRITE(3) wys,cvar
WRITE(3) 'what', ' you get!'
WRITE(3) bells
CLOSE(3)
END