view gcc/testsuite/gfortran.dg/binding_label_tests_5.f03 @ 128:fe568345ddd5

fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
module binding_label_tests_5
  use, intrinsic :: iso_c_binding
  
  interface
     subroutine sub0() bind(c, name='c_sub') ! Odd declaration but perfectly valid
     end subroutine sub0
     
     subroutine sub1() bind(c, name='c_sub') ! Ditto.
     end subroutine sub1
  end interface
end module binding_label_tests_5