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, 35 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/argument_checking_1.f90 b/gcc/testsuite/gfortran.dg/argument_checking_1.f90
new file mode 100644
index 000000000..b42047ae6
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/argument_checking_1.f90
@@ -0,0 +1,35 @@
+! { dg-do run }
+!
+! PR fortran/30940
+program main
+  implicit none
+  character(len=10) :: digit_string = '123456789', str
+  character :: digit_arr(10)
+  call copy(digit_string, digit_arr)
+  call copy(digit_arr,str)
+  if(str /= '123456789') call abort()
+  digit_string = 'qwertasdf'
+  call copy2(digit_string, digit_arr)
+  call copy2(digit_arr,str)
+  if(str /= 'qwertasdf') call abort()
+  digit_string = '1qayxsw23e'
+  call copy3("1qayxsw23e", digit_arr)
+  call copy3(digit_arr,str)
+  if(str /= '1qayxsw23e') call abort()
+contains
+  subroutine copy(in, out)
+    character, dimension(*)  :: in
+    character, dimension(10) :: out
+    out = in(:10)
+  end subroutine copy
+  subroutine copy2(in, out)
+    character, dimension(2,*)  :: in
+    character, dimension(2,5) :: out
+    out(1:2,1:5) = in(1:2,1:5)
+  end subroutine copy2
+  subroutine copy3(in, out)
+    character(len=2), dimension(5)  :: in
+    character(len=2), dimension(5) :: out
+    out = in
+  end subroutine copy3
+end program main