blob: c2275c4face8f9e42298ed0a5a11061a94b3628b [file] [log] [blame]
! xfailed due to PR 101308
! PR 101305
! PR 100914
! { dg-do run }
! { dg-require-effective-target fortran_real_c_float128 }
! { dg-additional-sources "typecodes-scalar-float128-c.c dump-descriptors.c" }
! { dg-additional-options "-g" }
!
! This program tests that the vendor extension kind constants provided by
! gfortran's ISO_C_BINDING module result in the right type field in
! arguments passed by descriptor,also matching the size of the corresponding
! C type. We use pointers to force the use of a descriptor.
program testit
use iso_c_binding
implicit none
interface
subroutine ctest (arg_float128, arg_complex128) bind (c)
use iso_c_binding
real(C_FLOAT128), pointer :: arg_float128
complex(C_FLOAT128_COMPLEX), pointer :: arg_complex128
end subroutine
end interface
real(C_FLOAT128), pointer :: var_float128
complex(C_FLOAT128_COMPLEX), pointer :: var_complex128
nullify (var_float128, var_complex128)
call ctest (var_float128, var_complex128)
end program