libgomp/testsuite/libgomp.fortran/task-in-explicit-2.f90

! { dg-do run }

program main
  use omp_lib
  implicit none
  !$omp task
    if (.not. omp_in_explicit_task ()) &
      error stop
    !$omp task
      if (.not. omp_in_explicit_task ()) &
        error stop
      !$omp target nowait
        if (omp_in_explicit_task ()) &
          error stop
      !$omp end target
      if (.not. omp_in_explicit_task ()) &
        error stop
      !$omp taskwait
    !$omp end task
  !$omp end task
end