! Test 3:  1 ASSIGN Label, 3 goto address
! Test passes and replaces the three assigns and gotos with a select case
! (Modified test case from the user stories)
program one_label_three_addresses !<<<<< 1, 1, 26, 12, true, pass

     character*50 message

     message = "setting initial label address"
     label = 100
     goto 9000

100  message = "changing label addr for the first time"
     label = 200
     goto 9000

200  message = "changing label address 2nd time."
     label = 300
     goto 9000

300  stop

! This is the "subroutine"
9000 print *, message
     select case (label)
     case (100); goto 100
     case (200); goto 200
     case (300); goto 300
     case default; stop "Unknown label"
     end select

end program