OSDN Git Service

2007-12-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / optional_dim_2.f90
1 ! { dg-do run }
2 ! PR33317 CSHIFT/EOSHIFT: Rejects optional dummy for DIM=
3 ! Test case submitted by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4 program test
5  implicit none
6  call sub(bound=.false., dimmy=1_8)
7  call sub()
8 contains
9  subroutine sub(bound, dimmy)
10    integer(kind=8), optional :: dimmy
11    logical, optional :: bound
12    logical :: lotto(4)
13    character(20) :: testbuf
14    lotto = .false.
15    lotto = cshift((/.true.,.false.,.true.,.false./),1,dim=dimmy)
16    write(testbuf,*) lotto
17    if (trim(testbuf).ne." F T F T") call abort
18    lotto = .false.
19    lotto = eoshift((/.true.,.true.,.true.,.true./),1,boundary=bound,dim=dimmy)
20    lotto = eoshift(lotto,1,dim=dimmy)
21    write(testbuf,*) lotto
22    if (trim(testbuf).ne." T T F F") call abort
23  end subroutine
24 end program test