program coarray_02
    call event_query(1, 1, 1)
end program coarray_02