diff --git a/test/f90_correct/src/dt17.f90 b/test/f90_correct/src/dt17.f90
index 0d9ab5865b9..9525b34ce8b 100644
--- a/test/f90_correct/src/dt17.f90
+++ b/test/f90_correct/src/dt17.f90
@@ -42,7 +42,7 @@ subroutine check2(s,a,ia,ja,r)
 	  do i = lbound(a,1),ubound(a,1)
 	   do j = lbound(a,2),ubound(a,2)
 	    if(a(i,j)%i .ne. ia(i,j) )then
-	     write(*,'(a,a,i1,a,i1,a,i4,a,i4)') s,'a(',i,',',j,')%i=',a(i,j)%i,' != ',ia(i)
+	     write(*,'(a,a,i1,a,i1,a,i4,a,i4)') s,'a(',i,',',j,')%i=',a(i,j)%i,' != ',ia(i,j)
 	     r = 0
 	    endif
 	    do k = lbound(ja,1),ubound(ja,1)