diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-20 01:51:04 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-11-20 01:51:04 +0000 |
| commit | 457784b8492d4b0d9db24728b6df7cea0372c10d (patch) | |
| tree | fb3aee0b6287798ff01cecd8d8125735d660ae08 /gcc | |
| parent | e76e6ce3ffd67d572aea440a61f41f67a0fc1c4d (diff) | |
| download | gcc-457784b8492d4b0d9db24728b6df7cea0372c10d.zip gcc-457784b8492d4b0d9db24728b6df7cea0372c10d.tar.gz gcc-457784b8492d4b0d9db24728b6df7cea0372c10d.tar.bz2 | |
re PR fortran/33317 (CSHIFT/EOSHIFT: Rejects optional dummy for DIM=)
2007-11-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/33317
* gfortran.dg/optional_dim_2.f90: Remove test.
From-SVN: r130305
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/optional_dim_2.f90 | 24 |
2 files changed, 5 insertions, 24 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9284fb7..e93fa8a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-11-19 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/33317 + * gfortran.dg/optional_dim_2.f90: Remove test. + 2007-11-19 Peter Bergner <bergner@vnet.ibm.com> * 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 a1ab4c7..0000000 --- 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 <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 |