Skip to content

Commit f040d34

Browse files
committed
updated
1 parent e2dac45 commit f040d34

1 file changed

Lines changed: 0 additions & 2 deletions

File tree

test/linalg/test_linalg_specialmatrices.fypp

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -161,7 +161,6 @@ contains
161161
type(tridiagonal_${s1}$_type) :: A
162162
${t1}$, allocatable :: Amat(:,:)
163163

164-
! Uses parameter with standard F2003 empty array syntax to satisfy maintainer
165164
#:if t1.startswith('complex')
166165
${t1}$, parameter :: dl(0) = [${t1}$ ::]
167166
${t1}$, parameter :: du(0) = [${t1}$ ::]
@@ -195,7 +194,6 @@ contains
195194
integer, parameter :: n = 3
196195
type(tridiagonal_${s1}$_type) :: A, B, C
197196

198-
! Uses explicit parameter lists to satisfy maintainer and avoid 'i' compiler bug
199197
#:if t1.startswith('complex')
200198
${t1}$, parameter :: dl1(n-1) = [cmplx(1.0_wp, 0.0_wp, kind=wp), cmplx(1.0_wp, 0.0_wp, kind=wp)]
201199
${t1}$, parameter :: dv1(n) = [cmplx(2.0_wp, 0.0_wp, kind=wp), cmplx(2.0_wp, 0.0_wp, kind=wp), cmplx(2.0_wp, 0.0_wp, kind=wp)]

0 commit comments

Comments
 (0)