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
This commit is contained in:
parent
bc60d8a08d
commit
e47930a8dc
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue