Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/binding_label_tests_12.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 run } ! This verifies that the compiler will correctly accpet the name="", write out ! an empty string for the binding label to the module file, and then read it ! back in. Also, during gfc_verify_binding_labels, the name="" will prevent ! any verification (since there is no label to verify). module one contains subroutine foo() bind(c) end subroutine foo end module one module two contains ! This procedure is only used accessed in C ! as procedural pointer subroutine foo() bind(c, name="") end subroutine foo end module two use one, only: foo_one => foo use two, only: foo_two => foo end