File1: #include <stdio.h>\n#include <omp.h>\n\nint main(){\n\n  int i, m=2, n=4;\n  int b[4] = {};\n\n  #pragma omp simd safelen(2)\n  for (i = m; i<n; i++)\n    b[i] = b[i-m] - 1.0f;\n\n  printf("Expected: -1; Real: %d\n",b[3]);\n  return 0;\n}\n\n\n
File2: program DRB137_simdsafelen_orig_no\n    use omp_lib\n    implicit none\n\n    integer :: i, m, n\n    real :: b(4)\n\n    m = 2\n    n = 4\n\n    !$omp simd safelen(2)\n    do i = m+1, n\n        b(i) = b(i-m) - 1.0\n    end do\n\n    print*, b(3)\nend program