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