summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/matmul_7.f90
blob: b3f925a21457f2c046ff477e14183204fd854d60 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
! { 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