program subroutine1
    call bpe()
    contains
    subroutine bpe()
        bpe = 1
    end subroutine
end program