2 ! PR 35988 - failure on some zero-sized matmuls.
3 ! Test case contributed by Dick Hendrickson.
9 call gf1003c( 9, 8, 6) !fails
10 call gf1003d( 9, 8, 6) !fails
14 SUBROUTINE GF1003a(nf9,nf8,nf6)
18 RDA = MATMUL(RDA1(:, 9:8),RDA2( 8:6,:))
21 SUBROUTINE GF1003b(nf9,nf8,nf6)
25 RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF9:NF8,:))
28 SUBROUTINE GF1003c(nf9,nf8,nf6)
32 RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF8:NF6,:))
35 SUBROUTINE GF1003d(nf9,nf8,nf6)
39 RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF8:NF6,:))