gcc/testsuite/gfortran.dg/coarray_event_1.f08

   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.
  11 contains
  12   subroutine exchange
  13     event post (x[1])
  14   end subroutine
  15 end