KL
Joined: 16 Nov 2009 Posts: 144
|
Posted: Fri Apr 10, 2015 3:55 pm Post subject: Plato CheckMate .Net |
|
|
Dear colleagues,
Plato reports an error in the following program:
Code: |
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 |
|