Skip to main content

ORDER.F95

	PROGRAM ORDER
!
!  Purpose: to illustrate the rules governing arithmetic operations in Fortran
!
	REAL:: A,B,C,E,D,F,G,X,Y,Z
!
	A=3.0
	B=2.0
	C=5.0
	D=4.0
	E=10.0
	F=2.0
	G=3.0
	X=A*B+C*D+E/F**G
	Y=A*(B+C)*D+(E/F)**G
	Z=A*(B+C)*(D+E)/F**G
	WRITE(*,*)X,Y,Z
!
	END PROGRAM ORDER