From c1cad89ed591f45f71045c7fb9747bbc7e25f193 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 3 Mar 2007 18:41:54 +0100 Subject: [PATCH] c_by_val.c: Use int64_t instead of long to be more compatible with integer(kind=8). 2007-03-03 Tobias Burnus * 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 | 5 +++++ gcc/testsuite/gfortran.dg/c_by_val.c | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e3d16ac3194..04834734b95 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-03-03 Tobias Burnus + + * 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 PR libfortran/31001 diff --git a/gcc/testsuite/gfortran.dg/c_by_val.c b/gcc/testsuite/gfortran.dg/c_by_val.c index 75bec1d89ea..78bf0ef04af 100644 --- 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 + 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();