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


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

! { dg-do run }
! { dg-additional-sources "allocate-c.c dump-descriptors.c" }
! { dg-additional-options "-g" }
!
! This program tests the CFI_allocate and CFI_deallocate functions.  
! 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