cpp: #include <stdio.h>\nint a[100], b[100], c[100];\nint main()\n{\n  int i;\n#pragma omp simd\n  for (i=0;i<100;i++)\n    a[i]=b[i]*c[i];\n  return 0;\n}\n
fortran: program DRB070_simd1_orig_no\n    use omp_lib\n    implicit none\n\n    integer :: len, i\n    integer, dimension(:), allocatable :: a, b, c\n    len = 100\n    allocate (a(len))\n    allocate (b(len))\n    allocate (c(len))\n\n    !$omp simd\n    do i = 1, len\n        a(i) = b(i) + c(i)\n    end do\n    !$omp end simd\n\n    deallocate(a,b,c)\nend program