re PR fortran/29973 ([4.2 only] CHAR not allowed as actual argument, even in F2003)

	PR fortran/29973
	* gfortran.fortran-torture/execute/specifics.f90: Remove test
	for CHAR.

From-SVN: r119197

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f81b5b30bba688385b9d0bbbd57f965e0499b321..a834a609bd521522720560760da6259fe7b1ac7f 100644 (file)
--- 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 ec34aa5d0c91b4e4f2211ffc4e84dc760865b634..96977fd11aec5ba1bec0228fec5003dcc40ca27f 100644 (file)
--- 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