fixed a bug if using integer kinds lower than int32

jacobwilliams · Dec 30, 2023 · 3bef523 · 3bef523
1 parent 1f89ce6
commit 3bef523
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/src/dag_module.F90 b/src/dag_module.F90
@@ -795,8 +795,8 @@ recursive subroutine quicksort(ilow,ihigh)
 
             ! do the normal quicksort:
             call partition(ilow,ihigh,ipivot)
-            call quicksort(ilow,ipivot - 1)
-            call quicksort(ipivot + 1,ihigh)
+            call quicksort(ilow,ipivot - 1_ip)
+            call quicksort(ipivot + 1_ip,ihigh)
 
         end if
 

diff --git a/test/dag_example_2.f90 b/test/dag_example_2.f90
@@ -9,8 +9,6 @@ program dag_example_2
     implicit none
 
     type(dag) :: d
-    integer(ip),dimension(:),allocatable :: order
-    integer(ip) :: istat
     integer(ip) :: i,r,c
     logical,dimension(:,:),allocatable :: mat !! dependency matrix
 
@@ -44,8 +42,6 @@ program dag_example_2
                         label=['hello'], &
                         attributes=['penwidth=2,arrowhead=none,color=red,fontcolor=red'] )
 
-    ! [penwidth=1, arrowhead=none]
-
     do i = 1, n_nodes
         if (i==7 .or. i==8) then
             call d%set_vertex_info(i,label=labels(i), attributes="shape=square,fillcolor=SlateGray1,style=filled")