diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/vla4.f90')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/vla4.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/vla4.f90 b/libgomp/testsuite/libgomp.fortran/vla4.f90 index 58caabc6248..cdd4849b6ad 100644 --- a/libgomp/testsuite/libgomp.fortran/vla4.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla4.f90 @@ -94,7 +94,7 @@ contains forall (p = 1:2, q = 3:7, r = 1:7) u(p, q, r) = 30 - x - p + q - 2 * r forall (p = 1:5, q = 3:7, p + q .le. 8) v(p, q) = w(1:7) forall (p = 1:5, q = 3:7, p + q .gt. 8) v(p, q) = w(20:26) -!$omp barrier +!$omp barrier ! { dg-warning "may not be closely nested" } y = '' if (x .eq. 0) y = '0' if (x .eq. 1) y = '1' |