I am not sure whether the following code is supposed
to work but the "x = 5" is never converted into
tree-code in gfc_trans_omp_do – hence, it makes sense
to error out. (I have the feeling that this needs to
be revisited for OpenMP 5.x.)

(The equivalent C/C++ code is rejected, see PR.)

    !$omp parallel do collapse(3)
    do i = 1, 8
       do j = 1, 8
         do k = 1, 8
         end do
         x = 5  ! <<<
       end do
    end do

OK?

Tobias

-----------------
Mentor Graphics (Deutschland) GmbH, Arnulfstraße 201, 80634 München / Germany
Registergericht München HRB 106955, Geschäftsführer: Thomas Heurung, Alexander Walter