Extends `do concurrent` to OpenMP mapping by adding support for
multi-range loops. The current implementation only works for perfectly
nested loops. So taking this input:

```fortran
do concurrent(i=1:n, j=1:m)
  a(i,j,k) = i * j
end do
```

will behave in exactly the same way as this input:

```
do concurrent(i=1:n)
  do concurrent(j=1:m)
    a(i,j,k) = i * j
  end do
end do
```