Bug in dlls/oleaut32/tests/vartype.c?

[Gerald Pfeifer]

dlls/oleaut32/tests/vartype.c has the following snippet of code:

+  f = -1e-400;    /* deliberately cause underflow */
  +  hres = pVarBstrFromR4(f, lcid, 0, &bstr);
  +  ok(hres == S_OK, "got hres 0x%08lx\n", hres);
  +  if (bstr)
  +  {
  +    todo_wine ok(memcmp(bstr, szZero, sizeof(szZero)) == 0, "negative zero (got %s)\n", wtoascii(bstr));
  +  }

which was added in

revision 1.27
  Alex Villacís Lasso 
  Test for behavior of negative underflow formatting.

This doesn't seem to work as intended, because it is a floating point
*constant* which current versions of GCC simply truncate to 0.0.

Gerald