gcc/testsuite/gfortran.dg/binding_label_tests_23.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/48858
   4 !
   5 integer function foo(x)
   6   integer :: x
   7   call abort()
   8   foo = 99
   9 end function foo
  10
  11 integer function other() bind(C, name="bar")
  12   other = 42
  13 end function other
  14
  15 program test
  16   interface
  17     integer function foo() bind(C, name="bar")
  18     end function foo
  19   end interface
  20   if (foo() /= 42) call abort()  ! Ensure that the binding name is all what counts
  21 end program test