24 lines
770 B
Fortran
24 lines
770 B
Fortran
! { 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., dimmy=1_8)
|
|
call sub()
|
|
contains
|
|
subroutine sub(bound, dimmy)
|
|
integer(kind=8), optional :: dimmy
|
|
logical, optional :: bound
|
|
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") call abort
|
|
end subroutine
|
|
end program test |