[Bug fortran/32957] C/Fortran interoperability and -fdefault-integer-8

[egallager at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=32957

--- Comment #9 from Eric Gallager <egallager at gcc dot gnu.org> ---
(In reply to Dominique d'Humieres from comment #8)
> > So is this fixed now?
> 
> I have spotted some new tests requiring c_int:
> 
> --- ../_clean/gcc/testsuite/gfortran.dg/bind_c_usage_24.f90	2018-02-18
> 00:40:36.000000000 +0100
> +++ ../p_work/gcc/testsuite/gfortran.dg/bind_c_usage_24.f90	2018-05-12
> 16:01:26.000000000 +0200
> @@ -30,9 +30,10 @@ contains
>  end module m
>  
>  program test
> +  use iso_c_binding
>    use m
>    implicit none
> -  integer :: val
> +  integer(c_int) :: val
>  
>    val = 4
>    call c_proc (.false._c_bool)
> --- ../_clean/gcc/testsuite/gfortran.dg/internal_dummy_4.f08	2018-02-18
> 00:40:40.000000000 +0100
> +++ ../p_work/gcc/testsuite/gfortran.dg/internal_dummy_4.f08	2018-05-12
> 16:01:29.000000000 +0200
> @@ -39,11 +39,11 @@ end module test_mod
>  program main
>    use test_mod
>    implicit none
> -  integer :: a
> +  integer(c_int) :: a
>    a = 33
> -  call test_sub (one, a, 7*33)
> +  call test_sub (one, a, 7_c_int*33_c_int)
>    a = 23
> -  call test_func(two, a, -123*23)
> +  call test_func(two, a, -123_c_int*23_c_int)
>  contains
>    subroutine one(x) bind(c)
>       integer(c_int),intent(inout) :: x

Well, please send this part to the list for review anyways, even if it still
leaves some other parts un-fixed.

> 
> There is also a problem with gfortran.dg/bind_c_usage_10.f03 I have been
> unable to fix:
> 
> /opt/gcc/_clean/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03:66:31:
> 
>    integer(c_int) function func4()
>                                1
> Error: FUNCTION result func4 can't be of type INTEGER(4) in FUNCTION func4
> at (1)
> /opt/gcc/_clean/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03:59:31:
> 
>    integer(c_int) function func3() bind(c, name="myFunc3")
>                                1
> Error: FUNCTION result func3 can't be of type INTEGER(4) in FUNCTION func3
> at (1)
> /opt/gcc/_clean/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03:52:31:
> 
>    integer(c_int) function func2()
>                                1
> Error: FUNCTION result func2 can't be of type INTEGER(4) in FUNCTION func2
> at (1)
> /opt/gcc/_clean/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03:45:31:
> 
>    integer(c_int) function func1() bind(c, name="myFunc1")
>                                1
> Error: FUNCTION result func1 can't be of type INTEGER(4) in FUNCTION func1
> at (1)