error: reduction variable ‘v1’ is private in outer context

Question

I have the following Fortran code

program hello

    use omp_lib
    implicit none
    
    integer :: num_threads = 2
    
    print*, "Display Hello wo