OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/33317 (CSHIFT/EOSHIFT: Rejects optional dummy for DIM=)

Browse Source 
2007-11-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/33317
	* gfortran.dg/optional_dim_2.f90: New test.
	
	PR fortran/34139
	* gfortran.dg/subref_array_pointer_2.f90: Update test condition.

From-SVN: r130277
This commit is contained in:
Jerry DeLisle 2007-11-18 20:59:41 +00:00
parent 33717d596b
commit a03890ea9d
3 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2007-11-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33317
* gfortran.dg/optional_dim_2.f90: New test.
PR fortran/34139
* gfortran.dg/subref_array_pointer_2.f90: Update test condition.
2007-11-18 Jakub Jelinek <jakub@redhat.com>
PR rtl-optimization/34132

24
gcc/testsuite/gfortran.dg/optional_dim_2.f90 Normal file
View File

@ -0,0 +1,24 @@
! { dg-do run }
! PR33317 CSHIFT/EOSHIFT: Rejects optional dummy for DIM=
! Test case submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
program test
implicit none
call sub(bound=(/.false.,.true.,.true.,.true./), dimmy=1_8)
call sub()
contains
subroutine sub(bound, dimmy)
integer(kind=8), optional :: dimmy
logical, optional :: bound(4)
logical :: lotto(4)
character(20) :: testbuf
lotto = .false.
lotto = cshift((/.true.,.false.,.true.,.false./),1,dim=dimmy)
write(testbuf,*) lotto
if (trim(testbuf).ne." F T F T") call abort
lotto = .false.
lotto = eoshift((/.true.,.true.,.true.,.true./),1,boundary=bound,dim=dimmy)
lotto = eoshift(lotto,1,dim=dimmy)
write(testbuf,*) lotto
if (trim(testbuf).ne." T T F F") print *, testbuf
end subroutine
end program test

2
gcc/testsuite/gfortran.dg/subref_array_pointer_2.f90
View File

@ -81,7 +81,7 @@
tar3%t => tar1
ptr3 => tar3%t%r
ptr3 = cos (ptr3)
if (any (ptr3 .ne. (/cos(1.0_4), cos(3.0_4)/))) call abort ()
if (any (abs(ptr3 - (/cos(1.0_4), cos(3.0_4)/)) >= epsilon(1.0_4))) call abort ()
ptr2 => tar3%t(:)%chr(2:3)
ptr2 = " x"