diff options
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 b/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 index 4763f13..020be13 100644 --- a/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/task-detach-1.f90 @@ -7,7 +7,7 @@ program task_detach_1 integer, parameter :: omp_event_handle_kind = c_intptr_t integer (kind=omp_event_handle_kind) :: x, y - integer :: z + integer(1) :: z !$omp task detach(x) detach(y) ! { dg-error "Failed to match clause at \\\(1\\\)" } !$omp end task ! { dg-error "Unexpected !\\\$OMP END TASK statement at \\\(1\\\)" } |