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

diff --git a/gcc/testsuite/gfortran.dg/widechar_3.f90 b/gcc/testsuite/gfortran.dg/widechar_3.f90
new file mode 100644
index 000000000..653f1d93a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/widechar_3.f90
@@ -0,0 +1,112 @@
+! { dg-do compile }
+! { dg-options "-fmax-errors=1000" }
+
+  character(kind=1,len=20) :: s1, t1
+  character(kind=4,len=20) :: s4, t4
+
+  print *, "" // ""
+  print *, "" // 4_"" ! { dg-error "Operands of string concatenation operator" }
+  print *, 4_"" // "" ! { dg-error "Operands of string concatenation operator" }
+  print *, 4_"" // 4_""
+
+  print *, s1 // ""
+  print *, s1 // 4_"" ! { dg-error "Operands of string concatenation operator" }
+  print *, s4 // "" ! { dg-error "Operands of string concatenation operator" }
+  print *, s4 // 4_""
+
+  print *, "" // s1
+  print *, 4_"" // s1 ! { dg-error "Operands of string concatenation operator" }
+  print *, "" // s4 ! { dg-error "Operands of string concatenation operator" }
+  print *, 4_"" // s4
+
+  print *, s1 // t1
+  print *, s1 // t4 ! { dg-error "Operands of string concatenation operator" }
+  print *, s4 // t1 ! { dg-error "Operands of string concatenation operator" }
+  print *, s4 // t4
+
+  print *, s1 .eq. ""
+  print *, s1 .eq. 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .eq. "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .eq. 4_""
+
+  print *, s1 == ""
+  print *, s1 == 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 == "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 == 4_""
+
+  print *, s1 .ne. ""
+  print *, s1 .ne. 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .ne. "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .ne. 4_""
+
+  print *, s1 /= ""
+  print *, s1 /= 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 /= "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 /= 4_""
+
+  print *, s1 .le. ""
+  print *, s1 .le. 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .le. "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .le. 4_""
+
+  print *, s1 <= ""
+  print *, s1 <= 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 <= "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 <= 4_""
+
+  print *, s1 .ge. ""
+  print *, s1 .ge. 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .ge. "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .ge. 4_""
+
+  print *, s1 >= ""
+  print *, s1 >= 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 >= "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 >= 4_""
+
+  print *, s1 .lt. ""
+  print *, s1 .lt. 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .lt. "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .lt. 4_""
+
+  print *, s1 < ""
+  print *, s1 < 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 < "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 < 4_""
+
+  print *, s1 .gt. ""
+  print *, s1 .gt. 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .gt. "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 .gt. 4_""
+
+  print *, s1 > ""
+  print *, s1 > 4_"" ! { dg-error "Operands of comparison operator" }
+  print *, s4 > "" ! { dg-error "Operands of comparison operator" }
+  print *, s4 > 4_""
+
+  print *, "" ==  ""
+  print *, 4_"" ==  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" .eq.  ""
+  print *, 4_"" .eq.  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" /=  ""
+  print *, 4_"" /=  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" .ne.  ""
+  print *, 4_"" .ne.  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" .lt.  ""
+  print *, 4_"" .lt.  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" <  ""
+  print *, 4_"" <  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" .le.  ""
+  print *, 4_"" .le.  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" <=  ""
+  print *, 4_"" <=  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" .gt.  ""
+  print *, 4_"" .gt.  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" >  ""
+  print *, 4_"" >  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" .ge.  ""
+  print *, 4_"" .ge.  "" ! { dg-error "Operands of comparison operator" }
+  print *, "" >=  ""
+  print *, 4_"" >=  "" ! { dg-error "Operands of comparison operator" }
+
+  end