forked from Imagelibrary/binutils-gdb
3d11c30a6e
In gdb.fortran/mixed-lang-stack.f90, we have fortran function mixed_func_1d:
...
subroutine mixed_func_1d(a, b, c, d, str)
use, intrinsic :: iso_c_binding, only: c_int, c_float, c_double
use, intrinsic :: iso_c_binding, only: c_float_complex
implicit none
integer(c_int) :: a
real(c_float) :: b
real(c_double) :: c
complex(c_float_complex) :: d
character(len=*) :: str
...
which we declare in C in gdb.fortran/mixed-lang-stack.c like this:
...
extern void mixed_func_1d_ (int *, float *, double *, complex float *,
char *, size_t);
...
The fortran string parameter str is passed as a char *, and an additional
argument str_ for the string length. The type used for the string length
argument is size_t, but for gcc 7 and earlier, the actual type is int
instead ( see
https://gcc.gnu.org/onlinedocs/gfortran/Argument-passing-conventions.html ).
Fix this by declaring the string length type depending on the gcc version:
...
#if !defined (__GNUC__) || __GNUC__ > 7
typedef size_t fortran_charlen_t;
#else
typedef int fortran_charlen_t;
...
Tested on x86_64-linux, with gcc-7 and gcc-8.
gdb/testsuite/ChangeLog:
2020-08-15 Tom de Vries <tdevries@suse.de>
* gdb.fortran/mixed-lang-stack.c (fortran_charlen_t): New type.
(mixed_func_1d_): Use fortran_charlen_t in decl.
46 lines
1.4 KiB
C
46 lines
1.4 KiB
C
/* Copyright 2020 Free Software Foundation, Inc.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>. */
|
|
|
|
#include <stdio.h>
|
|
#include <complex.h>
|
|
#include <string.h>
|
|
|
|
struct some_struct
|
|
{
|
|
float a, b;
|
|
};
|
|
|
|
/* See https://gcc.gnu.org/onlinedocs/gfortran/\
|
|
Argument-passing-conventions.html. */
|
|
#if !defined (__GNUC__) || __GNUC__ > 7
|
|
typedef size_t fortran_charlen_t;
|
|
#else
|
|
typedef int fortran_charlen_t;
|
|
#endif
|
|
|
|
extern void mixed_func_1d_ (int *, float *, double *, complex float *,
|
|
char *, fortran_charlen_t);
|
|
|
|
void
|
|
mixed_func_1c (int a, float b, double c, complex float d, char *f,
|
|
struct some_struct *g)
|
|
{
|
|
printf ("a = %d, b = %f, c = %e, d = (%f + %fi)\n", a, b, c,
|
|
creal(d), cimag(d));
|
|
|
|
char *string = "this is a string from C";
|
|
mixed_func_1d_ (&a, &b, &c, &d, string, strlen (string));
|
|
}
|