blob: d0c3904e27edbb71774725ea81ed3bd6886393d7 [file] [log] [blame]
! Reported as pr94070.
! { dg-do run { xfail *-*-* } }
! { dg-additional-sources "fc-out-descriptor-6-c.c dump-descriptors.c" }
! { dg-additional-options "-g" }
! This program checks passing an assumed-size array argument via descriptor
! from Fortran to C.
program testit
use iso_c_binding
implicit none
! Assumed-size arrays are not passed by descriptor. What we'll do
! for this test function is bind an assumed-rank dummy to an
! assumed-size array. This is supposed to fill in the descriptor
! with information about the array present at the call site.
subroutine ctest (a) bind (c)
use iso_c_binding
integer(C_INT), intent(out) :: a(..)
end subroutine
end interface
integer(C_INT), target :: aa(10,5:8)
! To get an assumed-size array descriptor, we have to first pass the
! fixed-size array to a Fortran function with an assumed-size dummy.
call ftest1 (aa)
call ftest2 (aa)
call ftest3 (aa)
subroutine ftest1 (a)
use iso_c_binding
integer(C_INT) :: a(10,*)
call ctest (a)
end subroutine
subroutine ftest2 (a)
use iso_c_binding
integer(C_INT) :: a(10,5:*)
call ctest (a)
end subroutine
subroutine ftest3 (a)
use iso_c_binding
integer(C_INT) :: a(10,1:*)
call ctest (a)
end subroutine
end program