Subversion Repositories openrisc

! { 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)) call abort

      if (.not. all(ida .ne. -1000)) call abort

      lda = (/ (i/2*2 .eq. I, i=1,9) /)

      LDA = any ( IDA .NE. -1000,  1)

      print *, lda          !expect FALSE

      if (any(lda)) call abort

      print *, any(ida .ne. -1000)   !expect FALSE

      if (any(ida .ne. -1000)) call abort

      iii = 137

      iii = count ( IDA .NE. -1000,  1)

      if (any(iii /= 0)) call abort

      if (count(ida .ne. -1000) /= 0) call abort

      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)) call abort

      end subroutine foo