PROGRAM testexp

  REAL :: x=2.

  print*, 'x**3 = ',x**3
  print*, '-x**3 = ',-x**3

END PROGRAM testexp
