diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 | 8 |
2 files changed, 5 insertions, 8 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f81b5b3..a834a60 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 ec34aa5..96977fd 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 |