ex0430.for

Fortran 95程序设计【彭国伦】第4章原代码

	PROGRAM ex0430
	IMPLICIT NONE
	INTEGER A
	REAL    B
      COMPLEX C
	CHARACTER*(20) STR
	DATA A,B,C,STR /1, 2.0, (1.0,2.0), 'FORTRAN 77'/
	WRITE(*,*) A,B,C,STR
	STOP
	END