Skip to content

Commit

Permalink
fixed a dimension mismatch in test_zsktrs.f90
Browse files Browse the repository at this point in the history
  • Loading branch information
kousuke-nakano committed Sep 12, 2023
1 parent ed43f4c commit 20e48b6
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/a_module_tests/test_zsktrs.f90
Original file line number Diff line number Diff line change
Expand Up @@ -16,8 +16,8 @@
program test_zsktrs
implicit none

complex*16, allocatable, dimension(:, :) :: B, B_orig
complex*16, allocatable, dimension(:) :: A, X
complex*16, allocatable, dimension(:, :) :: B, B_orig, X
complex*16, allocatable, dimension(:) :: A
real*8, allocatable, dimension(:) :: helper_r, helper_c
complex*16 :: one = 1.d0, zero = 0.d0
integer :: s, gen, ii, jj, info
Expand All @@ -32,7 +32,7 @@ program test_zsktrs
allocate (A(s - 1))
allocate (B(s, s))
allocate (B_orig(s, s))
allocate (X(s - 1))
allocate (X(s, s))
allocate (helper_r(s - 1))
allocate (helper_c(s - 1))

Expand Down

0 comments on commit 20e48b6

Please sign in to comment.