Incident Queue Report - Modern Fortran Programming

A queue report can scan compact severity values, count tickets at or above a selected threshold, and keep a separate high-severity total.
Program

Play the program to choose the minimum severity and inspect the queue counts.
                            min_severity
                            min_severity = 2 (default)min_severity = 1min_severity = 3
                        

                            incident_queue_report.f90
                        
Replay: real traced execution (multi-file project)

                            program incident_queue_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: high_count
    integer :: i

    severities = [1, 3, 2, 3]
    min_severity = 2
    visible_count = 0
    high_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
        if (severities(i) == 3) then
            high_count = high_count + 1
        end if
    end do
    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count
end program incident_queue_report_demo
program incident_queue_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: high_count
    integer :: i

    severities = [1, 3, 2, 3]
    min_severity = 1
    visible_count = 0
    high_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
        if (severities(i) == 3) then
            high_count = high_count + 1
        end if
    end do
    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count
end program incident_queue_report_demo
program incident_queue_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: high_count
    integer :: i

    severities = [1, 3, 2, 3]
    min_severity = 3
    visible_count = 0
    high_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
        if (severities(i) == 3) then
            high_count = high_count + 1
        end if
    end do
    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count
end program incident_queue_report_demo

                        
1severities ← [1, 3, 2, 3]⋯9severities = [1, 3, 2, 3]10min_severity = 2⋯values this step[1, 3, 2, 3]severities
2min_severity ← 2⋯9severities = [1, 3, 2, 3]10min_severity = 211visible_count = 0⋯values this step2min_severity
3visible_count ← 0⋯10min_severity = 211visible_count = 012high_count = 0⋯values this step0visible_count
4high_count ← 0⋯11visible_count = 012high_count = 013do i = 1, 4⋯values this step0high_count
5i ← 1⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step1i
6if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.false.severities(1) >= min_severity
7if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.false.severities(1) == 3
8i ← 2⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step2i
9if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(2) >= min_severity
10visible_count ← 1⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step1visible_count
11if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.true.severities(2) == 3
12high_count ← 1⋯17if (severities(i) == 3) then18    high_count = high_count + 119end if⋯values this step1high_count
13i ← 3⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step3i
14if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(3) >= min_severity
15visible_count ← 2⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step2visible_count
16if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.false.severities(3) == 3
17i ← 4⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step4i
18if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(4) >= min_severity
19visible_count ← 3⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step3visible_count
20if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.true.severities(4) == 3
21high_count ← 2⋯17if (severities(i) == 3) then18    high_count = high_count + 119end if⋯values this step2high_count
22print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count⋯20    end do21    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count22end program incident_queue_report_demooutput2 3 2values this step2min_severity3visible_count2high_count
1severities ← [1, 3, 2, 3]⋯9severities = [1, 3, 2, 3]10min_severity = 1⋯values this step[1, 3, 2, 3]severities
2min_severity ← 1⋯9severities = [1, 3, 2, 3]10min_severity = 111visible_count = 0⋯values this step1min_severity
3visible_count ← 0⋯10min_severity = 111visible_count = 012high_count = 0⋯values this step0visible_count
4high_count ← 0⋯11visible_count = 012high_count = 013do i = 1, 4⋯values this step0high_count
5i ← 1⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step1i
6if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(1) >= min_severity
7visible_count ← 1⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step1visible_count
8if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.false.severities(1) == 3
9i ← 2⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step2i
10if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(2) >= min_severity
11visible_count ← 2⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step2visible_count
12if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.true.severities(2) == 3
13high_count ← 1⋯17if (severities(i) == 3) then18    high_count = high_count + 119end if⋯values this step1high_count
14i ← 3⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step3i
15if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(3) >= min_severity
16visible_count ← 3⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step3visible_count
17if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.false.severities(3) == 3
18i ← 4⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step4i
19if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(4) >= min_severity
20visible_count ← 4⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step4visible_count
21if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.true.severities(4) == 3
22high_count ← 2⋯17if (severities(i) == 3) then18    high_count = high_count + 119end if⋯values this step2high_count
23print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count⋯20    end do21    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count22end program incident_queue_report_demooutput1 4 2values this step1min_severity4visible_count2high_count
1severities ← [1, 3, 2, 3]⋯9severities = [1, 3, 2, 3]10min_severity = 3⋯values this step[1, 3, 2, 3]severities
2min_severity ← 3⋯9severities = [1, 3, 2, 3]10min_severity = 311visible_count = 0⋯values this step3min_severity
3visible_count ← 0⋯10min_severity = 311visible_count = 012high_count = 0⋯values this step0visible_count
4high_count ← 0⋯11visible_count = 012high_count = 013do i = 1, 4⋯values this step0high_count
5i ← 1⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step1i
6if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.false.severities(1) >= min_severity
7if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.false.severities(1) == 3
8i ← 2⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step2i
9if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(2) >= min_severity
10visible_count ← 1⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step1visible_count
11if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.true.severities(2) == 3
12high_count ← 1⋯17if (severities(i) == 3) then18    high_count = high_count + 119end if⋯values this step1high_count
13i ← 3⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step3i
14if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.false.severities(3) >= min_severity
15if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.false.severities(3) == 3
16i ← 4⋯12high_count = 013do i = 1, 414    if (severities(i) >= min_severity) then⋯values this step4i
17if (severities(i) >= min_severity) then⋯13do i = 1, 414    if (severities(i) >= min_severity) then15        visible_count = visible_count + 1⋯values this step.true.severities(4) >= min_severity
18visible_count ← 2⋯14if (severities(i) >= min_severity) then15    visible_count = visible_count + 116end if⋯values this step2visible_count
19if (severities(i) == 3) then⋯16end if17if (severities(i) == 3) then18    high_count = high_count + 1⋯values this step.true.severities(4) == 3
20high_count ← 2⋯17if (severities(i) == 3) then18    high_count = high_count + 119end if⋯values this step2high_count
21print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count⋯20    end do21    print '(I0, 1X, I0, 1X, I0)', min_severity, visible_count, high_count22end program incident_queue_report_demooutput3 2 2values this step3min_severity2visible_count2high_count
threshold count The first guard counts incidents at or above the selected severity.
independent count The high-severity counter is separate from the visible threshold.
loop report The final line reports the selector and both derived counts.