[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g77.f-torture / execute / exp.f

      a = 2**-2*1.
      if (a .ne. .25) call abort
      end