From bb8cc9279dd5188ec5e508cbc7b956fd61c49fae Mon Sep 17 00:00:00 2001 From: Jari Date: Fri, 23 Aug 2024 08:19:36 +0100 Subject: [PATCH] Fix extra space after goto --- src/ssids/gpu/factor.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ssids/gpu/factor.f90 b/src/ssids/gpu/factor.f90 index d98e3498..aae4280e 100644 --- a/src/ssids/gpu/factor.f90 +++ b/src/ssids/gpu/factor.f90 @@ -97,7 +97,7 @@ subroutine parfactor(pos_def, child_ptr, child_list, n, nptr, gpu_nlist, & ! Determine level structure allocate(stream_data%lvllist(nnodes), & stream_data%lvlptr(nnodes + 1), stat=stats%st) - if (stats%st .ne. 0) goto 100 + if (stats%st .ne. 0) goto 100 call assign_nodes_to_levels(nnodes, sparent, gpu_contribs, & stream_data%num_levels, stream_data%lvlptr, stream_data%lvllist, stats%st) if (stats%st .ne. 0) goto 100