Subversion Repositories openrisc

! { dg-do compile }

!

! Test for PR 35150, reduced testcases by Tobias Burnus

!

module test1

  use, intrinsic :: iso_c_binding

  implicit none

contains

  subroutine sub1(argv) bind(c,name="sub1")

    type(c_ptr), intent(in) :: argv

  end subroutine

  subroutine sub2

    type(c_ptr), dimension(1), target :: argv = c_null_ptr

    character(c_char), dimension(1), target :: s = c_null_char

    call sub1(c_loc(argv))

  end subroutine

end module test1

program test2

  use iso_c_binding

  type(c_ptr), target, save :: argv

  interface

    subroutine sub1(argv) bind(c)

      import

      type(c_ptr) :: argv

    end subroutine sub1

  end interface

  call sub1(c_loc(argv))

end program test2

!

! { dg-final { cleanup-modules "test1" } }