1! { dg-do compile }
2! { dg-options "-fcoarray=lib -lcaf_single" }
3
4! Check that pr70696 is really fixed.
5
6  use iso_fortran_env
7  type(event_type) :: x[*]
8
9  ! exchange must not be called or the link problem before the patch
10  ! does not occur.
11contains
12  subroutine exchange
13    event post (x[1])
14  end subroutine
15end
16