2014-11-14 Cesar Philippidis <cesar@codesourcery.com>
libgfortran/
* intrinsics/random.c (random_seed_i4): Replace _Static_assert
with assert.
@@ -25,6 +25,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
+#include <assert.h>
#include <gthr.h>
#include <string.h>
@@ -669,8 +670,8 @@ random_seed_i4 (GFC_INTEGER_4 *size, gfc_array_i4 *put, gfc_array_i4 *get)
#define KISS_MAX_SIZE 12
unsigned char seed[4 * KISS_MAX_SIZE];
- _Static_assert (kiss_size <= KISS_MAX_SIZE,
- "kiss_size must <= KISS_MAX_SIZE");
+ assert (kiss_size <= KISS_MAX_SIZE
+ && "kiss_size must <= KISS_MAX_SIZE");
__gthread_mutex_lock (&random_lock);