Bug in MA02ID.f

[repagh]

gcc 10 spits out the following warning

[590/952] Building Fortran object slycot/CMakeFiles/_wrapper.dir/src/MA02ID.f.o
../../../slycot/src/MA02ID.f:188:21:

  184 |          DO 90 J = 1, N+1
      |                                                                        2
......
  188 |                DWORK(J-1) = DWORK(J-1) + TEMP
      |                     1
Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2)
../../../slycot/src/MA02ID.f:188:34:

  184 |          DO 90 J = 1, N+1
      |                                                                        2
......
  188 |                DWORK(J-1) = DWORK(J-1) + TEMP
      |                                  1
Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2)
../../../slycot/src/MA02ID.f:230:21:

  226 |          DO 160 J = 1, N+1
      |                                                                        2
......
  230 |                DWORK(J-1) = DWORK(J-1) + TEMP
      |                     1
Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2)
../../../slycot/src/MA02ID.f:230:34:

  226 |          DO 160 J = 1, N+1
      |                                                                        2
......
  230 |                DWORK(J-1) = DWORK(J-1) + TEMP
      |                                  1
Warning: Array reference at (1) out of bounds (0 < 1) in loop beginning at (2)

These specific pieces of code are not used (no wrapper, not internally in SLICOT), but it looks plain wrong. Reporting this to not forget.

[bnavigator]

Slycot/slycot/src/MA02ID.f

Lines 184 to 188 in 003a2af

	DO 90 J = 1, N+1
	DO 70 I = 1, J-2
	TEMP = ABS( QG(I,J) )
	DWORK(I) = DWORK(I) + TEMP
	DWORK(J-1) = DWORK(J-1) + TEMP

Slycot/slycot/src/MA02ID.f

Lines 226 to 230 in 003a2af

	DO 160 J = 1, N+1
	DO 140 I = 1, J-2
	TEMP = ABS( QG(I,J) )
	DWORK(I) = DWORK(I) + TEMP
	DWORK(J-1) = DWORK(J-1) + TEMP

The 70 and 140 loops are inactive for 1 > J-2 because the iteration count is zero.

[repagh]

OK. Thanks, false alarm thus.