OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2007-03-03 18:41:54 +01:00 committed by Tobias Burnus
parent a50639323b
commit c1cad89ed5
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

6
gcc/testsuite/gfortran.dg/c_by_val.c
View File

@ -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();