RosettaCodeData/Task/Exponentiation-order/Fortran/exponentiation-order.f

write(*, "(a, i0)") "5**3**2   = ", 5**3**2
write(*, "(a, i0)") "(5**3)**2 = ", (5**3)**2
write(*, "(a, i0)") "5**(3**2) = ", 5**(3**2)
	`write(, "(a, i0)") "532 = ", 53*2`
	`write(, "(a, i0)") "(53)2 = ", (53)*2`
	`write(, "(a, i0)") "5(32) = ", 5(3*2)`