! Test 8:  2 ASSIGN Labels, goto same address
! Test passes, creating two select case statements
program two_labels_same_address !<<<<< 1, 1, 20, 12, true, pass

    label1 = 100
    goto 1000
100   print *, "Return to here"
    stop

    label2 = 100
    goto 2000

! Here is the intended "subroutine"
1000 print *, "This code will get executed"
    select case (label1)
    case (100); goto 100
    case default; stop "Unknown label"
    end select

2000 print *, "This will not get executed since we return back since the other case stops"
    select case (label2)
    case (100); goto 100
    case default; stop "Unknown label"
    end select

end program