use iso_c_binding, only: c_intptr_t | |
implicit none (external, type) | |
integer, parameter :: omp_event_handle_kind = c_intptr_t | |
integer (kind=omp_event_handle_kind) :: x | |
!$omp parallel master default (none) ! { dg-message "enclosing 'parallel'" } | |
!$omp task detach (x) ! { dg-error "'x' not specified in enclosing 'parallel'" } | |
!$omp end task | |
!$omp end parallel master | |
end |