Subversion Repositories openrisc

! { dg-do run }

! PR 35988 - failure on some zero-sized matmuls.

! Test case contributed by Dick Hendrickson.

       program try_gf1003

      call       gf1003a(  9,  8,  6)

      call       gf1003b(  9,  8,  6)

      call       gf1003c(  9,  8,  6)   !fails

      call       gf1003d(  9,  8,  6)   !fails

      end program

      SUBROUTINE GF1003a(nf9,nf8,nf6)

      REAL RDA(3,2)

      REAL RDA1(3,5)

      REAL RDA2(5,2)

      RDA = MATMUL(RDA1(:, 9:8),RDA2( 8:6,:))

      END SUBROUTINE

      SUBROUTINE GF1003b(nf9,nf8,nf6)

      REAL RDA(3,2)

      REAL RDA1(3,0)

      REAL RDA2(0,2)

      RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF9:NF8,:))

      END SUBROUTINE

      SUBROUTINE GF1003c(nf9,nf8,nf6)

      REAL RDA(3,2)

      REAL RDA1(3,0)

      REAL RDA2(0,2)

      RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF8:NF6,:))

      END SUBROUTINE

      SUBROUTINE GF1003d(nf9,nf8,nf6)

      REAL RDA(3,2)

      REAL RDA1(3,5)

      REAL RDA2(5,2)

      RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF8:NF6,:))

      END SUBROUTINE