1 files changed, 6 insertions, 6 deletions
diff --git a/Carpet/CarpetTest/src/carpettest_check_arguments.F77 b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
index ee1263ebc..89332e16b 100644
--- a/Carpet/CarpetTest/src/carpettest_check_arguments.F77
+++ b/Carpet/CarpetTest/src/carpettest_check_arguments.F77
@@ -24,19 +24,19 @@ c     -*-Fortran-*-
             end do
          end do
       end do
-      do k=1,i5
-         do j=1,i4
-            do i=1,i3
+      do k=1,SIZE(arr3,3)
+         do j=1,SIZE(arr3,2)
+            do i=1,SIZE(arr3,1)
                arr3(i,j,k) = i*10000 + j*100 + k
             end do
          end do
       end do
-      do j=1,i7
-         do i=1,i6
+      do j=1,SIZE(arr2,2)
+         do i=1,SIZE(arr2,1)
             arr2(i,j) = i*100 + j
          end do
       end do
-      do i=1,i8
+      do i=1,SIZE(arr1,1)
          arr1(i) = i
       end do
       sc = 42