program subroutine2
    integer :: i
    i = bpe()
    contains
    subroutine bpe()
    end subroutine
end program