c_by_val.c: Use int64_t instead of long to be more compatible with integer(kind=8).

2007-03-03  Tobias Burnus  <burnus@net-b.de>

       * gfortran.dg/c_by_val.c: Use int64_t instead of long
       to be more compatible with integer(kind=8).

From-SVN: r122510

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e3d16ac3194602329ba7afc722eb00de8085d633..04834734b95232b80b5ba6f3c387ec108587db6f 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-03  Tobias Burnus  <burnus@net-b.de>
+
+       * gfortran.dg/c_by_val.c: Use int64_t instead of long
+       to be more compatible with integer(kind=8).
+
 2007-03-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
        PR libfortran/31001

diff --git a/gcc/testsuite/gfortran.dg/c_by_val.c b/gcc/testsuite/gfortran.dg/c_by_val.c
index 75bec1d89eab3a75cdd83b9b85cf60d367cb77b7..78bf0ef04afb79f3db5782924bf94afebebd1938 100644 (file)
--- a/gcc/testsuite/gfortran.dg/c_by_val.c
+++ b/gcc/testsuite/gfortran.dg/c_by_val.c
@@ -1,11 +1,13 @@
 /*  Passing from fortran to C by value, using %VAL.  */
 
+#include <inttypes.h>
+
 typedef struct { float r, i; } complex;
 typedef struct { double r, i; } complex8;
 extern void f_to_f__ (float*, float, float*, float**);
 extern void f_to_f8__ (double*, double, double*, double**);
 extern void i_to_i__ (int*, int, int*, int**);
-extern void i_to_i8__ (long*, long, long*, long**);
+extern void i_to_i8__ (int64_t*, int64_t, int64_t*, int64_t**);
 extern void c_to_c__ (complex*, complex, complex*, complex**);
 extern void c_to_c8__ (complex8*, complex8, complex8*, complex8**);
 extern void abort (void);
@@ -41,7 +43,7 @@ i_to_i__(int *retval, int i1, int *i2, int **i3)
 }
 
 void
-i_to_i8__(long *retval, long i1, long *i2, long **i3)
+i_to_i8__(int64_t *retval, int64_t i1, int64_t *i2, int64_t **i3)
 {
   if ( i1 != *i2 ) abort();
   if ( i1 != **i3 ) abort();