1! { dg-do run } 2! PR 35988 - failure on some zero-sized matmuls. 3! Test case contributed by Dick Hendrickson. 4 5 program try_gf1003 6 7 call gf1003a( 9, 8, 6) 8 call gf1003b( 9, 8, 6) 9 call gf1003c( 9, 8, 6) !fails 10 call gf1003d( 9, 8, 6) !fails 11 end program 12 13 14 SUBROUTINE GF1003a(nf9,nf8,nf6) 15 REAL RDA(3,2) 16 REAL RDA1(3,5) 17 REAL RDA2(5,2) 18 RDA = MATMUL(RDA1(:, 9:8),RDA2( 8:6,:)) 19 END SUBROUTINE 20 21 SUBROUTINE GF1003b(nf9,nf8,nf6) 22 REAL RDA(3,2) 23 REAL RDA1(3,0) 24 REAL RDA2(0,2) 25 RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF9:NF8,:)) 26 END SUBROUTINE 27 28 SUBROUTINE GF1003c(nf9,nf8,nf6) 29 REAL RDA(3,2) 30 REAL RDA1(3,0) 31 REAL RDA2(0,2) 32 RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF8:NF6,:)) 33 END SUBROUTINE 34 35 SUBROUTINE GF1003d(nf9,nf8,nf6) 36 REAL RDA(3,2) 37 REAL RDA1(3,5) 38 REAL RDA2(5,2) 39 RDA = MATMUL(RDA1(:,NF9:NF8),RDA2(NF8:NF6,:)) 40 END SUBROUTINE 41