Skip to content

Commit

Permalink
[runtime] The array dimensions must be defined before being used
Browse files Browse the repository at this point in the history
  • Loading branch information
@dmikushin @pawosm-arm
dmikushin authored and pawosm-arm committed Jun 29, 2023
1 parent 82e9084 commit 7cc1996
Show file tree
Hide file tree
Showing 13 changed files with 39 additions and 39 deletions.
6 changes: 3 additions & 3 deletions runtime/flang/mmul_cplx16contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_cplx16_contmxm(dest, src1, src2, k_extent,m_extent,n_extent)

COMPLEX*16, dimension(k_extent,m_extent) :: src1
COMPLEX*16, dimension(m_extent,n_extent) :: src2
COMPLEX*16, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
COMPLEX*16, dimension(k_extent,m_extent) :: src1
COMPLEX*16, dimension(m_extent,n_extent) :: src2
COMPLEX*16, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_cplx8contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_cplx8_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

COMPLEX*8, dimension(k_extent,m_extent) :: src1
COMPLEX*8, dimension(m_extent,n_extent) :: src2
COMPLEX*8, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
COMPLEX*8, dimension(k_extent,m_extent) :: src1
COMPLEX*8, dimension(m_extent,n_extent) :: src2
COMPLEX*8, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_int1contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_int1_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

INTEGER*1, dimension(k_extent,m_extent) :: src1
INTEGER*1, dimension(m_extent,n_extent) :: src2
INTEGER*1, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
INTEGER*1, dimension(k_extent,m_extent) :: src1
INTEGER*1, dimension(m_extent,n_extent) :: src2
INTEGER*1, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_int2contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_int2_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

INTEGER*2, dimension(k_extent,m_extent):: src1
INTEGER*2, dimension(m_extent,n_extent) :: src2
INTEGER*2, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
INTEGER*2, dimension(k_extent,m_extent):: src1
INTEGER*2, dimension(m_extent,n_extent) :: src2
INTEGER*2, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_int4contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_int4_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

INTEGER*4, dimension(k_extent,m_extent) :: src1
INTEGER*4, dimension(m_extent,n_extent) :: src2
INTEGER*4, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
INTEGER*4, dimension(k_extent,m_extent) :: src1
INTEGER*4, dimension(m_extent,n_extent) :: src2
INTEGER*4, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_int8contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_int8_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

INTEGER*8, dimension(k_extent,m_extent) :: src1
INTEGER*8, dimension(m_extent,n_extent) :: src2
INTEGER*8, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
INTEGER*8, dimension(k_extent,m_extent) :: src1
INTEGER*8, dimension(m_extent,n_extent) :: src2
INTEGER*8, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_log1contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_log1_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

LOGICAL*1, dimension(k_extent,m_extent) :: src1
LOGICAL*1, dimension(m_extent,n_extent) :: src2
LOGICAL*1, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
LOGICAL*1, dimension(k_extent,m_extent) :: src1
LOGICAL*1, dimension(m_extent,n_extent) :: src2
LOGICAL*1, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_log2contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_log2_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

LOGICAL*2, dimension(k_extent,m_extent) :: src1
LOGICAL*2, dimension(m_extent,n_extent) :: src2
LOGICAL*2, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
LOGICAL*2, dimension(k_extent,m_extent) :: src1
LOGICAL*2, dimension(m_extent,n_extent) :: src2
LOGICAL*2, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_log4contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_log4_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

LOGICAL*4, dimension(k_extent,m_extent) :: src1
LOGICAL*4, dimension(m_extent,n_extent) :: src2
LOGICAL*4, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
LOGICAL*4, dimension(k_extent,m_extent) :: src1
LOGICAL*4, dimension(m_extent,n_extent) :: src2
LOGICAL*4, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_log8contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_log8_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

LOGICAL*8, dimension(k_extent,m_extent) :: src1
LOGICAL*8, dimension(m_extent,n_extent) :: src2
LOGICAL*8, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
LOGICAL*8, dimension(k_extent,m_extent) :: src1
LOGICAL*8, dimension(m_extent,n_extent) :: src2
LOGICAL*8, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_real16contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -8,12 +8,12 @@

subroutine F90_matmul_real16_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

REAL*16, dimension(k_extent,m_extent) :: src1
REAL*16, dimension(m_extent,n_extent) :: src2
REAL*16, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
REAL*16, dimension(k_extent,m_extent) :: src1
REAL*16, dimension(m_extent,n_extent) :: src2
REAL*16, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_real4contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_real4_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

REAL*4, dimension(k_extent,m_extent) :: src1
REAL*4, dimension(m_extent,n_extent) :: src2
REAL*4, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
REAL*4, dimension(k_extent,m_extent) :: src1
REAL*4, dimension(m_extent,n_extent) :: src2
REAL*4, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down
6 changes: 3 additions & 3 deletions runtime/flang/mmul_real8contmxm.F95
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,12 +9,12 @@

subroutine F90_matmul_real8_contmxm(dest, src1, src2, k_extent, m_extent, n_extent)

REAL*8, dimension(k_extent,m_extent) :: src1
REAL*8, dimension(m_extent,n_extent) :: src2
REAL*8, dimension(k_extent,n_extent) :: dest
DESC_INT k_extent
DESC_INT n_extent
DESC_INT m_extent
REAL*8, dimension(k_extent,m_extent) :: src1
REAL*8, dimension(m_extent,n_extent) :: src2
REAL*8, dimension(k_extent,n_extent) :: dest

DESC_INT k
DESC_INT n
Expand Down

0 comments on commit 7cc1996

Please sign in to comment.