http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52542

             Bug #: 52542
           Summary: Procedure with a Bind (C) named interface does not
                    inherit the Bind (C)
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassig...@gcc.gnu.org
        ReportedBy: math...@nag.co.uk


$ uname -a
Linux stonehenge 3.2.9-1.fc16.x86_64 #1 SMP Thu Mar 1 01:41:10 UTC 2012 x86_64
x86_64 x86_64 GNU/Linux

$ gfortran --version
GNU Fortran (GCC) 4.8.0 20120309 (experimental) [trunk revision 185121]

$ cat bind.f90
interface
  subroutine s() bind(c)
  end subroutine s
end interface
procedure(s) :: t
call t
end

$ gfortran -c bind.f90 ; nm bind.o
0000000000000000 t MAIN__
                 U _gfortran_set_args
                 U _gfortran_set_options
000000000000000b T main
0000000000000000 r options.0.1852
                 U t_

Note: that should be 't', not 't_'.

Reply via email to