! { dg-do compile } | |
! { dg-options "-fcoarray=lib -lcaf_single" } | |
! Check that pr79866 is really fixed. | |
use iso_fortran_env | |
type(event_type) :: x ! { dg-error "of type EVENT_TYPE or with subcomponent of type EVENT_TYPE must be a coarray" } | |
contains | |
subroutine exchange | |
event post (x[1]) ! { dg-error "Syntax error in EVENT POST statement at .1." } | |
end subroutine | |
end |