diff options
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/intrinsics/random.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 4cdb3b4f2521..0485e6f698be 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2017-02-27 Janne Blomqvist <jb@gcc.gnu.org> + + * intrinsics/random.c (getosrandom): Don't try to use rand_s on + CYGWIN. + 2017-02-16 Paul Thomas <pault@gcc.gnu.org> PR fortran/79382 diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c index d4f5b82f0b49..380368793628 100644 --- a/libgfortran/intrinsics/random.c +++ b/libgfortran/intrinsics/random.c @@ -304,7 +304,7 @@ static int getosrandom (void *buf, size_t buflen) { /* rand_s is available in MinGW-w64 but not plain MinGW. */ -#ifdef __MINGW64_VERSION_MAJOR +#if defined(__MINGW64_VERSION_MAJOR) && !defined(__CYGWIN__) unsigned int* b = buf; for (unsigned i = 0; i < buflen / sizeof (unsigned int); i++) rand_s (&b[i]); |