! 	This program demonstrates Fortran exponential operator
!	=======================================================
        program f90oper1

	implicit none

	integer i, j, k
	real    x, y, z

! ===================================================
! Integer exponentiation
! ===================================================
	i = 2; j = 3; k = i**j
	print *
	print *, "i = ", i, ", j = ", j, ", i**j = ", k

! ===================================================
! Real exponentiation
! ===================================================
	x = 2; y = 0.5; z = x**y
	print *
	print *, "x = ", x, ", y = ", y, ", x**y = ", z

! ===================================================
! Demo precedence
! ===================================================
	x = 10 * 3**2
	print *
	print *, "10 * 3**2 =", x

	stop
	end
