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

diff --git a/gcc/testsuite/gfortran.dg/widechar_4.f90 b/gcc/testsuite/gfortran.dg/widechar_4.f90
new file mode 100644
index 000000000..1166f8bfb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/widechar_4.f90
@@ -0,0 +1,147 @@
+! { dg-do run }
+! { dg-options "-fbackslash" }
+
+  character(kind=1,len=20) :: s1, t1
+  character(kind=4,len=20) :: s4, t4
+
+  call test (4_"ccc  ", 4_"bbb", 4_"ccc", 4_"ddd")
+  call test (4_" \xACp  ", 4_" \x900000 ", 4_" \xACp  ", 4_"ddd")
+  call test (4_" \xACp  ", 4_" \x900000 ", 4_" \xACp  ", 4_"ddd")
+
+  call test2 (4_" \x900000 ", 4_" \xACp  ", 4_"ddd")
+
+contains
+
+  subroutine test(s4, t4, u4, v4)
+    character(kind=4,len=*) :: s4, t4, u4, v4
+
+    if (.not. (s4 >= t4)) call abort
+    if (.not. (s4 > t4)) call abort
+    if (.not. (s4 .ge. t4)) call abort
+    if (.not. (s4 .gt. t4)) call abort
+    if (      (s4 == t4)) call abort
+    if (.not. (s4 /= t4)) call abort
+    if (      (s4 .eq. t4)) call abort
+    if (.not. (s4 .ne. t4)) call abort
+    if (      (s4 <= t4)) call abort
+    if (      (s4 < t4)) call abort
+    if (      (s4 .le. t4)) call abort
+    if (      (s4 .lt. t4)) call abort
+
+    if (.not. (s4 >= u4)) call abort
+    if (      (s4 > u4)) call abort
+    if (.not. (s4 .ge. u4)) call abort
+    if (      (s4 .gt. u4)) call abort
+    if (.not. (s4 == u4)) call abort
+    if (      (s4 /= u4)) call abort
+    if (.not. (s4 .eq. u4)) call abort
+    if (      (s4 .ne. u4)) call abort
+    if (.not. (s4 <= u4)) call abort
+    if (      (s4 < u4)) call abort
+    if (.not. (s4 .le. u4)) call abort
+    if (      (s4 .lt. u4)) call abort
+
+    if (      (s4 >= v4)) call abort
+    if (      (s4 > v4)) call abort
+    if (      (s4 .ge. v4)) call abort
+    if (      (s4 .gt. v4)) call abort
+    if (      (s4 == v4)) call abort
+    if (.not. (s4 /= v4)) call abort
+    if (      (s4 .eq. v4)) call abort
+    if (.not. (s4 .ne. v4)) call abort
+    if (.not. (s4 <= v4)) call abort
+    if (.not. (s4 < v4)) call abort
+    if (.not. (s4 .le. v4)) call abort
+    if (.not. (s4 .lt. v4)) call abort
+
+  end subroutine test
+
+  subroutine test2(t4, u4, v4)
+    character(kind=4,len=*) :: t4, u4, v4
+
+    if (.not. (4_" \xACp  " >= t4)) call abort
+    if (.not. (4_" \xACp  " > t4)) call abort
+    if (.not. (4_" \xACp  " .ge. t4)) call abort
+    if (.not. (4_" \xACp  " .gt. t4)) call abort
+    if (      (4_" \xACp  " == t4)) call abort
+    if (.not. (4_" \xACp  " /= t4)) call abort
+    if (      (4_" \xACp  " .eq. t4)) call abort
+    if (.not. (4_" \xACp  " .ne. t4)) call abort
+    if (      (4_" \xACp  " <= t4)) call abort
+    if (      (4_" \xACp  " < t4)) call abort
+    if (      (4_" \xACp  " .le. t4)) call abort
+    if (      (4_" \xACp  " .lt. t4)) call abort
+
+    if (.not. (4_" \xACp  " >= u4)) call abort
+    if (      (4_" \xACp  " > u4)) call abort
+    if (.not. (4_" \xACp  " .ge. u4)) call abort
+    if (      (4_" \xACp  " .gt. u4)) call abort
+    if (.not. (4_" \xACp  " == u4)) call abort
+    if (      (4_" \xACp  " /= u4)) call abort
+    if (.not. (4_" \xACp  " .eq. u4)) call abort
+    if (      (4_" \xACp  " .ne. u4)) call abort
+    if (.not. (4_" \xACp  " <= u4)) call abort
+    if (      (4_" \xACp  " < u4)) call abort
+    if (.not. (4_" \xACp  " .le. u4)) call abort
+    if (      (4_" \xACp  " .lt. u4)) call abort
+
+    if (      (4_" \xACp  " >= v4)) call abort
+    if (      (4_" \xACp  " > v4)) call abort
+    if (      (4_" \xACp  " .ge. v4)) call abort
+    if (      (4_" \xACp  " .gt. v4)) call abort
+    if (      (4_" \xACp  " == v4)) call abort
+    if (.not. (4_" \xACp  " /= v4)) call abort
+    if (      (4_" \xACp  " .eq. v4)) call abort
+    if (.not. (4_" \xACp  " .ne. v4)) call abort
+    if (.not. (4_" \xACp  " <= v4)) call abort
+    if (.not. (4_" \xACp  " < v4)) call abort
+    if (.not. (4_" \xACp  " .le. v4)) call abort
+    if (.not. (4_" \xACp  " .lt. v4)) call abort
+
+  end subroutine test2
+
+  subroutine test3(t4, u4, v4)
+    character(kind=4,len=*) :: t4, u4, v4
+
+    if (.not. (4_" \xACp  " >= 4_" \x900000 ")) call abort
+    if (.not. (4_" \xACp  " > 4_" \x900000 ")) call abort
+    if (.not. (4_" \xACp  " .ge. 4_" \x900000 ")) call abort
+    if (.not. (4_" \xACp  " .gt. 4_" \x900000 ")) call abort
+    if (      (4_" \xACp  " == 4_" \x900000 ")) call abort
+    if (.not. (4_" \xACp  " /= 4_" \x900000 ")) call abort
+    if (      (4_" \xACp  " .eq. 4_" \x900000 ")) call abort
+    if (.not. (4_" \xACp  " .ne. 4_" \x900000 ")) call abort
+    if (      (4_" \xACp  " <= 4_" \x900000 ")) call abort
+    if (      (4_" \xACp  " < 4_" \x900000 ")) call abort
+    if (      (4_" \xACp  " .le. 4_" \x900000 ")) call abort
+    if (      (4_" \xACp  " .lt. 4_" \x900000 ")) call abort
+
+    if (.not. (4_" \xACp  " >= 4_" \xACp  ")) call abort
+    if (      (4_" \xACp  " > 4_" \xACp  ")) call abort
+    if (.not. (4_" \xACp  " .ge. 4_" \xACp  ")) call abort
+    if (      (4_" \xACp  " .gt. 4_" \xACp  ")) call abort
+    if (.not. (4_" \xACp  " == 4_" \xACp  ")) call abort
+    if (      (4_" \xACp  " /= 4_" \xACp  ")) call abort
+    if (.not. (4_" \xACp  " .eq. 4_" \xACp  ")) call abort
+    if (      (4_" \xACp  " .ne. 4_" \xACp  ")) call abort
+    if (.not. (4_" \xACp  " <= 4_" \xACp  ")) call abort
+    if (      (4_" \xACp  " < 4_" \xACp  ")) call abort
+    if (.not. (4_" \xACp  " .le. 4_" \xACp  ")) call abort
+    if (      (4_" \xACp  " .lt. 4_" \xACp  ")) call abort
+
+    if (      (4_" \xACp  " >= 4_"ddd")) call abort
+    if (      (4_" \xACp  " > 4_"ddd")) call abort
+    if (      (4_" \xACp  " .ge. 4_"ddd")) call abort
+    if (      (4_" \xACp  " .gt. 4_"ddd")) call abort
+    if (      (4_" \xACp  " == 4_"ddd")) call abort
+    if (.not. (4_" \xACp  " /= 4_"ddd")) call abort
+    if (      (4_" \xACp  " .eq. 4_"ddd")) call abort
+    if (.not. (4_" \xACp  " .ne. 4_"ddd")) call abort
+    if (.not. (4_" \xACp  " <= 4_"ddd")) call abort
+    if (.not. (4_" \xACp  " < 4_"ddd")) call abort
+    if (.not. (4_" \xACp  " .le. 4_"ddd")) call abort
+    if (.not. (4_" \xACp  " .lt. 4_"ddd")) call abort
+
+  end subroutine test3
+
+end