diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-11-25 15:28:56 +0100 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-11-25 14:28:56 +0000 |
| commit | e47930a8dc0a96e589ac4af1d6fb61342811d4da (patch) | |
| tree | a592c8e076dd6a7b8ee7daba09b35d7b210a5213 /gcc | |
| parent | bc60d8a08d73f6a15d4e2d7b427733ef82971f5c (diff) | |
| download | gcc-e47930a8dc0a96e589ac4af1d6fb61342811d4da.zip gcc-e47930a8dc0a96e589ac4af1d6fb61342811d4da.tar.gz gcc-e47930a8dc0a96e589ac4af1d6fb61342811d4da.tar.bz2 | |
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
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 |