! Test 5: 2 ASSIGN Labels, One GOTO address each
! Test passes and replaces two assigned gotos and creates two select case statements
program two_labels_one_address !<<<<< 1, 1, 22, 12, true, pass
    real :: area
    real :: radius

    label1 = 100
    goto 7000

100 radius = 3.0
    label2 = 325
    goto 9000

325 stop

7000 print *, "hello"
     select case (label1)
     case (100); goto 100
     case default; stop "Unknown label"
     end select

9000 area = 3.1415 * r**2
     select case (label2)
     case (325); goto 325
     case default; stop "Unknown label"
     end select

end program