Plato CheckMate .Net

Dear colleagues,

Plato reports an error in the following program:

  Winapp

  Program Test03

      Implicit None
      Integer :: I, j
      Real    :: a, b

      a = 0.
      b = 0.
      do i = 1, 10
        do j = 1,10

          a = a + real (i*j)

        end do
      end do
      write (*,*) 'a = ', a

      Call abc (b)
      write (*,*) 'b = ', b

  Contains

      Subroutine abc (b)

      real , intent (inout) :: b

      do i = 1, 10
        do j = 1,10
         
          b = b + real (i*j)
           
        end do
      end do
      write (*,*) 'b = ', b
      end subroutine abc

  End Program Test03

The error message is

Error 431: Active DO-loop index altered.

I do not understand this error message, which does not emerge when compiling with all other Plato compiler options.

Is there any explanation?

Klaus

This looks like a bug in the compiler. In other words there is no apparent fault in your code.

I will log this for investigation.