mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-22 15:11:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

From-SVN: r119197
This commit is contained in:
Francois-Xavier Coudert 2006-11-25 15:28:56 +01:00 committed by François-Xavier Coudert
parent bc60d8a08d
commit e47930a8dc
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

8
gcc/testsuite/gfortran.fortran-torture/execute/specifics.f90
View File

@ -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