obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 77 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests.f03
new file mode 100644
index 000000000..34986501e
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests.f03
@@ -0,0 +1,77 @@
+! { dg-do compile }
+module binding_label_tests
+  use, intrinsic :: iso_c_binding
+  implicit none
+
+  contains
+
+  subroutine c_sub() BIND(c, name = "C_Sub")
+    print *, 'hello from c_sub'
+  end subroutine c_sub
+
+  integer(c_int) function c_func() bind(C, name="__C_funC")
+    print *, 'hello from c_func'
+    c_func = 1
+  end function c_func
+
+  real(c_float) function f90_func() 
+    print *, 'hello from f90_func'
+    f90_func = 1.0
+  end function f90_func
+
+  real(c_float) function c_real_func() bind(c)
+    print *, 'hello from c_real_func'
+    c_real_func = 1.5
+  end function c_real_func
+
+  integer function f90_func_0() result ( f90_func_0_result ) 
+    print *, 'hello from f90_func_0'
+    f90_func_0_result = 0
+  end function f90_func_0
+
+  integer(c_int) function f90_func_1() result ( f90_func_1_result ) bind(c, name="__F90_Func_1__")
+    print *, 'hello from f90_func_1'
+    f90_func_1_result = 1
+  end function f90_func_1
+
+  integer(c_int) function f90_func_3() result ( f90_func_3_result ) bind(c)
+    print *, 'hello from f90_func_3'
+    f90_func_3_result = 3
+  end function f90_func_3
+
+  integer(c_int) function F90_func_2() bind(c) result ( f90_func_2_result ) 
+    print *, 'hello from f90_func_2'
+    f90_func_2_result = 2
+  end function f90_func_2
+
+  integer(c_int) function F90_func_4() bind(c, name="F90_func_4") result ( f90_func_4_result ) 
+    print *, 'hello from f90_func_4'
+    f90_func_4_result = 4
+  end function f90_func_4
+
+  integer(c_int) function F90_func_5() bind(c, name="F90_func_5") result ( f90_func_5_result ) 
+    print *, 'hello from f90_func_5'
+    f90_func_5_result = 5
+  end function f90_func_5
+
+  subroutine c_sub_2() bind(c, name='c_sub_2')
+    print *, 'hello from c_sub_2'
+  end subroutine c_sub_2
+
+  subroutine c_sub_3() BIND(c, name = "  C_Sub_3  ")
+    print *, 'hello from c_sub_3'
+  end subroutine c_sub_3
+
+  subroutine c_sub_5() BIND(c, name = "C_Sub_5        ")
+    print *, 'hello from c_sub_5'
+  end subroutine c_sub_5
+
+  ! nothing between the quotes except spaces, so name="".
+  ! the name will get set to the regularly mangled version of the name.  
+  ! perhaps it should be marked with some characters that are invalid for 
+  ! C names so C can not call it?
+  subroutine sub4() BIND(c, name = "        ") 
+  end subroutine sub4 
+end module binding_label_tests
+
+! { dg-final { cleanup-modules "binding_label_tests" } }