gcc/testsuite/gfortran.dg/c-interop/fc-descriptor-3.f90

! PR 101308
! { dg-do run { xfail *-*-* } }
! { dg-additional-sources "fc-descriptor-3-c.c dump-descriptors.c" }
! { dg-additional-options "-g" }
!
! This program tests that pointer and allocatable scalar arguments are 
! correctly passed by descriptor from Fortran code into C.

program testit
  use iso_c_binding
  implicit none

  type, bind (c) :: m
    real(C_DOUBLE) :: a(3, 3)
  end type

  interface
    subroutine ctest (a, b, initp) bind (c)
      use iso_c_binding
      import m
      type(m), allocatable :: a
      type(m), pointer :: b
      integer(C_INT), value :: initp
    end subroutine
  end interface

  type (m), allocatable, target :: aa
  type (m), pointer :: bb

  ! Test both before and after allocation/pointer initialization.
  bb => null()
  call ctest (aa, bb, 0)
  allocate (aa)
  bb => aa
  call ctest (aa, bb, 1)

end program