! Test Case 16 Labels Used in a Subroutine
! Test fails because a subroutine is an action statement
program use_label_in_subroutine !<<<<< 1, 1, 15, 4, true, fail-final
    implicit none
    integer label
    assign 20 to label
    goto label
20  call print_label(label)

end program use_label_in_subroutine

subroutine print_label( label1 )
    integer :: label1
    print *,label1
end