diff --git a/2023/src/day05b.f90 b/2023/src/day05b.f90 index a184911..a3b2af9 100644 --- a/2023/src/day05b.f90 +++ b/2023/src/day05b.f90 @@ -156,6 +156,7 @@ program day5b print * print *, "Ranges after section ", sec print "(2i11)", t2_defs(1:2, 1:t2_n) + print *, "Number of ranges: ", t2_n if (is_iostat_end(istat)) then exit end if @@ -166,6 +167,7 @@ program day5b min_loc_val = t2_defs(1, t2_i) end if end do + print * print "(a, i11)", "Lowest location value: ", min_loc_val close(10)