From 4b655aa21a3ccbe8f3147b2a95d45d2d92ccfe09 Mon Sep 17 00:00:00 2001
From: Jakub Jelinek <jakub@redhat.com>
Date: Fri, 10 Jul 2015 14:06:40 +0200
Subject: [PATCH] Fix a pasto - loop simd construct in Fortran is do simd
 rather than for simd.

---
 sources/Example_SIMD.5f.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)