diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f81b5b30bba6..a834a609bd52 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-25  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* gfortran.fortran-torture/execute/specifics.f90: Remove test
+	for CHAR.
+
 2006-11-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/29936
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90
index ec34aa5d0c91..96977fd11aec 100644
--- a/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90
@@ -138,12 +138,6 @@ subroutine test_len(fn,val,res)
   if (res .ne. fn(val)) call abort
 end subroutine
 
-subroutine test_char(fn,val,res)
-  integer val
-  character(len=1) fn, res
-  if (res .ne. fn(val)) call abort
-end subroutine
-
 subroutine test_index(fn,val1,val2,res)
   integer fn, res
   character(len=*) val1, val2
@@ -228,7 +222,6 @@ program specifics
   intrinsic mod
   intrinsic len
   intrinsic index
-  intrinsic char
 
   intrinsic aimag
   intrinsic dimag
@@ -312,7 +305,6 @@ program specifics
   call test_iabs (iabs, -7, iabs(-7))
   call test_idim (mod, 5, 2, mod(5,2))
   call test_len (len, "foobar", len("foobar"))
-  call test_char (char, 47, char(47))
   call test_index (index, "foobarfoobar", "bar", index("foobarfoobar","bar"))
 
 end program