diff --git a/sources/Example_SIMD.5f.f b/sources/Example_SIMD.5f.f
index 316aa82..e66b716 100644
--- a/sources/Example_SIMD.5f.f
+++ b/sources/Example_SIMD.5f.f
@@ -8,7 +8,7 @@ subroutine work( a, b, c,  n )
    integer :: i,j,n
    double precision :: a(n,n), b(n,n), c(n,n), tmp
 
-   !$omp for simd collapse(2) private(tmp)
+   !$omp do simd collapse(2) private(tmp)
    do j = 1,n
       do i = 1,n
          tmp = a(i,j) + b(i,j)