diff options
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran/collapse3.f90')
-rw-r--r-- | libgomp/testsuite/libgomp.fortran/collapse3.f90 | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/collapse3.f90 b/libgomp/testsuite/libgomp.fortran/collapse3.f90 index 001dc2a..d463b4f 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse3.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse3.f90 @@ -24,8 +24,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 1 - if (m.ne.(600+40+18)) STOP 2 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 1 + if (m.ne.(600+40+18)) stop 2 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -56,8 +56,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 3 - if (m.ne.(600+40+18)) STOP 4 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 3 + if (m.ne.(600+40+18)) stop 4 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -88,8 +88,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 5 - if (m.ne.(600+40+18)) STOP 6 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 5 + if (m.ne.(600+40+18)) stop 6 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -120,8 +120,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 7 - if (m.ne.(600+40+18)) STOP 8 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 7 + if (m.ne.(600+40+18)) stop 8 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -153,8 +153,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 9 - if (m.ne.(600+40+18)) STOP 10 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 9 + if (m.ne.(600+40+18)) stop 10 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -186,8 +186,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 11 - if (m.ne.(600+40+18)) STOP 12 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 11 + if (m.ne.(600+40+18)) stop 12 do i = 1, 7 do j = -3, 5 do k = 12, 19 |