blob: e1c2ca7ec1c71587b6ff31786bbc3e449c9d84e9 [file] [log] [blame]
! { dg-do run }
! PR 35995 - ifunction.m4 and ifunction_logical.m4 had a bug
! where zero-sized arguments were not handled correctly.
! Test case provided by Dick Hendrickson, amended by
! Thomas Koenig.
program try_gf0026_etc
call gf0026( 0, 1)
call foo ( 0, 1)
end program
SUBROUTINE GF0026(nf0,nf1)
LOGICAL LDA(9)
INTEGER IDA(NF0,9), iii(9)
lda = (/ (i/2*2 .eq. I, i=1,9) /)
LDA = ALL ( IDA .NE. -1000, 1)
if (.not. all(lda)) STOP 1
if (.not. all(ida .ne. -1000)) STOP 2
lda = (/ (i/2*2 .eq. I, i=1,9) /)
LDA = any ( IDA .NE. -1000, 1)
print *, lda !expect FALSE
if (any(lda)) STOP 3
print *, any(ida .ne. -1000) !expect FALSE
if (any(ida .ne. -1000)) STOP 4
iii = 137
iii = count ( IDA .NE. -1000, 1)
if (any(iii /= 0)) STOP 5
if (count(ida .ne. -1000) /= 0) STOP 6
END SUBROUTINE
subroutine foo (nf0, nf1)
integer, dimension(9):: res, iii
integer, dimension(nf0,9) :: ida
res = (/ (-i, i=1,9) /)
res = product (ida, 1)
if (any(res /= 1)) STOP 7
end subroutine foo