diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-11-25 14:28:56 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-11-25 14:28:56 +0000 |
| commit | ea1d871b4f385f1041f1fa9b732c1371109c6234 (patch) | |
| tree | a592c8e076dd6a7b8ee7daba09b35d7b210a5213 /gcc/testsuite/gfortran.fortran-torture | |
| parent | 363c0e1953b481d4ca89765db18a5918f49b777c (diff) | |
| download | gcc-ea1d871b4f385f1041f1fa9b732c1371109c6234.tar.gz | |
PR fortran/29973
* gfortran.fortran-torture/execute/specifics.f90: Remove test
for CHAR.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@119197 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90 index ec34aa5d0c9..96977fd11ae 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 |