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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/c_by_val.c

 /*  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();