libgomp/testsuite/libgomp.fortran/task-7.f90

! { dg-do run }

program main
  use omp_lib
  implicit none

  !$omp task final (.true.)
    if (.not. omp_in_final ()) &
      error stop
    !$omp task
      if (.not. omp_in_final ()) &
        error stop
      !$omp target nowait
      if (omp_in_final ()) &
        error stop
      !$omp end target
      if (.not. omp_in_final ()) &
        error stop
      !$omp taskwait
    !$omp end task
  !$omp end task
end