RosettaCodeData/Task/Exponentiation-operator/HicEst/exponentiation-operator.hicest

WRITE(Clipboard) pow(5,   3)  ! 125
WRITE(ClipBoard) pow(5.5, 7)  ! 152243.5234

FUNCTION pow(x, n)
   pow = 1
   DO i = 1, n
      pow = pow * x
   ENDDO
END