From 457784b8492d4b0d9db24728b6df7cea0372c10d Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 20 Nov 2007 01:51:04 +0000 Subject: [PATCH] re PR fortran/33317 (CSHIFT/EOSHIFT: Rejects optional dummy for DIM=) 2007-11-19 Jerry DeLisle PR fortran/33317 * gfortran.dg/optional_dim_2.f90: Remove test. From-SVN: r130305 --- gcc/testsuite/ChangeLog | 5 ++++ gcc/testsuite/gfortran.dg/optional_dim_2.f90 | 24 -------------------- 2 files changed, 5 insertions(+), 24 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/optional_dim_2.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9284fb7b4ad..e93fa8acfa6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-11-19 Jerry DeLisle + + PR fortran/33317 + * gfortran.dg/optional_dim_2.f90: Remove test. + 2007-11-19 Peter Bergner * gcc.dg/dfp/ddmode-ice.c: New test. diff --git a/gcc/testsuite/gfortran.dg/optional_dim_2.f90 b/gcc/testsuite/gfortran.dg/optional_dim_2.f90 deleted file mode 100644 index a1ab4c7aa23..00000000000 --- a/gcc/testsuite/gfortran.dg/optional_dim_2.f90 +++ /dev/null @@ -1,24 +0,0 @@ -! { dg-do run } -! PR33317 CSHIFT/EOSHIFT: Rejects optional dummy for DIM= -! Test case submitted by Jerry DeLisle -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.30.2