1! { dg-do run } 2! PR 35995 - ifunction.m4 and ifunction_logical.m4 had a bug 3! where zero-sized arguments were not handled correctly. 4! Test case provided by Dick Hendrickson, amended by 5! Thomas Koenig. 6 7 program try_gf0026_etc 8 9 call gf0026( 0, 1) 10 call foo ( 0, 1) 11 12 end program 13 14 SUBROUTINE GF0026(nf0,nf1) 15 LOGICAL LDA(9) 16 INTEGER IDA(NF0,9), iii(9) 17 18 lda = (/ (i/2*2 .eq. I, i=1,9) /) 19 LDA = ALL ( IDA .NE. -1000, 1) 20 if (.not. all(lda)) STOP 1 21 if (.not. all(ida .ne. -1000)) STOP 2 22 23 lda = (/ (i/2*2 .eq. I, i=1,9) /) 24 LDA = any ( IDA .NE. -1000, 1) 25 print *, lda !expect FALSE 26 if (any(lda)) STOP 3 27 print *, any(ida .ne. -1000) !expect FALSE 28 if (any(ida .ne. -1000)) STOP 4 29 30 iii = 137 31 iii = count ( IDA .NE. -1000, 1) 32 if (any(iii /= 0)) STOP 5 33 if (count(ida .ne. -1000) /= 0) STOP 6 34 35 END SUBROUTINE 36 37 subroutine foo (nf0, nf1) 38 integer, dimension(9):: res, iii 39 integer, dimension(nf0,9) :: ida 40 res = (/ (-i, i=1,9) /) 41 res = product (ida, 1) 42 if (any(res /= 1)) STOP 7 43 end subroutine foo 44