Lines Matching full:event

2 ! This test checks for semantic errors in event post statements based on the
18     type(event_type) event
32   !ERROR: Variable 'non_coarray_component1' with EVENT_TYPE or LOCK_TYPE potential component '%event' must be a coarray
34   !ERROR: Variable 'non_coarray_component2' with EVENT_TYPE or LOCK_TYPE potential component '%component%event' must be a coarray
36   !ERROR: Variable 'non_coarray_component3' with EVENT_TYPE or LOCK_TYPE potential component '%component%event' must be a coarray
55   !______ invalid event-variable ____________________________
57   ! event-variable must be event_type
58   !ERROR: The event-variable must be of type EVENT_TYPE from module ISO_FORTRAN_ENV
59   event post(non_event)
62   event post(occurrences)
65   event post(occurrences[1])
70   event post(concert, stat=invalid_type)
73   event post(concert, stat=non_scalar)
78   event post(concert, errmsg=invalid_type)
83   event post(concert, stat=sync_status, stat=superfluous_stat)
86   event post(concert, errmsg=error_message, stat=sync_status, stat=superfluous_stat)
89   event post(concert, stat=sync_status, errmsg=error_message, stat=superfluous_stat)
92   event post(concert, stat=sync_status, stat=superfluous_stat, errmsg=error_message)
95   event post(concert, errmsg=error_message, errmsg=superfluous_errmsg)
98   event post(concert, stat=sync_status, errmsg=error_message, errmsg=superfluous_errmsg)
101   event post(concert, errmsg=error_message, stat=sync_status, errmsg=superfluous_errmsg)
104   event post(concert, errmsg=error_message, errmsg=superfluous_errmsg, stat=sync_status)
109   event post(concert, stat=co_indexed_integer[1])
112   event post(concert, errmsg=co_indexed_character[1])
115   event post(concert, stat=co_indexed_integer[1], errmsg=error_message)
118   event post(concert, stat=sync_status, errmsg=co_indexed_character[1])
122   event post(concert, stat=co_indexed_integer[1], errmsg=co_indexed_character[1])
126   event post(concert, errmsg=co_indexed_character[1], stat=co_indexed_integer[1])