Fixed a two-part boolean statement on a possibly deallocated array that was not allowed by the new version of gfortran (10.2)

MintonGroup · May 21, 2021 · ef7691e · ef7691e
1 parent c044922
commit ef7691e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/util/util_solve_linear_system.f90 b/src/util/util_solve_linear_system.f90
@@ -89,7 +89,7 @@ function solve_wbs(u) result(x) ! solve with backward substitution
    integer(I4B)             :: i,n
 
    n = size(u, 1)
-   if (allocated(x) .and. (size(x) /= n))  deallocate(x)
+   if (allocated(x)) deallocate(x)
    if (.not.allocated(x)) allocate(x(n))
    call ieee_set_halting_mode(ieee_divide_by_zero, .false.)
    do i = n, 1, -1