Ifort 16 BUG: setting an array value returned from a function

[victorsndvg]

The following code snippet reproduces the error:

Program test_up_dummy_arg_function_result

call print_int_array(get_int_array())                       ! <- It works!
call print_unlimited_polymorphic_array( (get_int_array()) ) ! <- It works!
call print_unlimited_polymorphic_array(  get_int_array()  ) ! <- SIGSEGV

contains
    function get_int_array() result(array)
        integer,allocatable :: array(:)
        allocate(array(5))
        array = 5
    end function get_int_array

    subroutine print_int_array(array)
        integer, intent(in) :: array(:)
        print*, array
    end subroutine print_int_array

    subroutine print_unlimited_polymorphic_array(array)
        class(*), intent(in) :: array(:)
        select type(array)
            type is (integer)
                print*, array
        end select
    end subroutine print_unlimited_polymorphic_array
end program