re PR target/23556 (FAIL: gfortran.dg/pr18122.f90)
PR target/23556 * io/read.c (convert_real): Use memcpy to fill buffer. From-SVN: r103685
This commit is contained in:
parent
35210087ce
commit
2efa12b340
|
@ -1,3 +1,8 @@
|
||||||
|
2005-08-31 Steve Ellcey <sje@cup.hp.com>
|
||||||
|
|
||||||
|
PR target/23556
|
||||||
|
* io/read.c (convert_real): Use memcpy to fill buffer.
|
||||||
|
|
||||||
2005-08-29 Thomas Koenig <Thomas.Koenig@online.de>
|
2005-08-29 Thomas Koenig <Thomas.Koenig@online.de>
|
||||||
|
|
||||||
PR libfortran/23598
|
PR libfortran/23598
|
||||||
|
|
|
@ -124,24 +124,36 @@ convert_real (void *dest, const char *buffer, int length)
|
||||||
switch (length)
|
switch (length)
|
||||||
{
|
{
|
||||||
case 4:
|
case 4:
|
||||||
*((GFC_REAL_4 *) dest) =
|
{
|
||||||
|
GFC_REAL_4 tmp =
|
||||||
#if defined(HAVE_STRTOF)
|
#if defined(HAVE_STRTOF)
|
||||||
strtof (buffer, NULL);
|
strtof (buffer, NULL);
|
||||||
#else
|
#else
|
||||||
(GFC_REAL_4) strtod (buffer, NULL);
|
(GFC_REAL_4) strtod (buffer, NULL);
|
||||||
#endif
|
#endif
|
||||||
|
memcpy (dest, (void *) &tmp, length);
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
case 8:
|
case 8:
|
||||||
*((GFC_REAL_8 *) dest) = strtod (buffer, NULL);
|
{
|
||||||
|
GFC_REAL_8 tmp = strtod (buffer, NULL);
|
||||||
|
memcpy (dest, (void *) &tmp, length);
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
#if defined(HAVE_GFC_REAL_10) && defined (HAVE_STRTOLD)
|
#if defined(HAVE_GFC_REAL_10) && defined (HAVE_STRTOLD)
|
||||||
case 10:
|
case 10:
|
||||||
*((GFC_REAL_10 *) dest) = strtold (buffer, NULL);
|
{
|
||||||
|
GFC_REAL_10 tmp = strtold (buffer, NULL);
|
||||||
|
memcpy (dest, (void *) &tmp, length);
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
#endif
|
#endif
|
||||||
#if defined(HAVE_GFC_REAL_16) && defined (HAVE_STRTOLD)
|
#if defined(HAVE_GFC_REAL_16) && defined (HAVE_STRTOLD)
|
||||||
case 16:
|
case 16:
|
||||||
*((GFC_REAL_16 *) dest) = strtold (buffer, NULL);
|
{
|
||||||
|
GFC_REAL_16 tmp = strtold (buffer, NULL);
|
||||||
|
memcpy (dest, (void *) &tmp, length);
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
#endif
|
#endif
|
||||||
default:
|
default:
|
||||||
|
|
Loading…
Reference in New Issue