diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-03-03 18:41:54 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-03-03 18:41:54 +0100 |
| commit | c1cad89ed591f45f71045c7fb9747bbc7e25f193 (patch) | |
| tree | fc906b854ae8ce0ffff73f2eadc60aaafdb36318 /gcc | |
| parent | a50639323b1cb8d55de55e4fc5a9ddcc3f3ae743 (diff) | |
| download | gcc-c1cad89ed591f45f71045c7fb9747bbc7e25f193.zip gcc-c1cad89ed591f45f71045c7fb9747bbc7e25f193.tar.gz gcc-c1cad89ed591f45f71045c7fb9747bbc7e25f193.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 e3d16ac..0483473 100644 --- 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 75bec1d..78bf0ef 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 <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(); |