From 9c43061e50605be45ddd3609fd7d1c9075a10b5e Mon Sep 17 00:00:00 2001 From: Bryan Chan Date: Thu, 27 Aug 2020 07:11:20 -0400 Subject: [PATCH] f90_correct: fix rank mismatch in dt17.f90 --- test/f90_correct/src/dt17.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)