gcc/testsuite/gfortran.dg/c-interop/setpointer.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-do run }
! { dg-additional-sources "setpointer-c.c dump-descriptors.c" }
!
! This program tests the CFI_setpointer function.  All the interesting
! things happen in the corresponding C code.

program testit
  use iso_c_binding
  implicit none

  interface
    subroutine ctest () bind (c)
    end subroutine
  end interface

  call ctest ()

end program