Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/minloc_1.f90 @ 132:d34655255c78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 84e7813d76e9
children 1830386684a0
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/minloc_1.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/minloc_1.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -17,140 +17,140 @@
   allocate (c(3))
   a(:) = nan
   ia = minloc (a)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 1
   a(:) = pinf
   ia = minloc (a)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 2
   a(1:2) = nan
   ia = minloc (a)
-  if (ia(1).ne.3) call abort
+  if (ia(1).ne.3) STOP 3
   a(2) = 1.0
   ia = minloc (a)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 4
   a(2) = minf
   ia = minloc (a)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 5
   c(:) = nan
   ia = minloc (c)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 6
   c(:) = pinf
   ia = minloc (c)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 7
   c(1:2) = nan
   ia = minloc (c)
-  if (ia(1).ne.3) call abort
+  if (ia(1).ne.3) STOP 8
   c(2) = 1.0
   ia = minloc (c)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 9
   c(2) = minf
   ia = minloc (c)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 10
   l = .false.
   l2(:) = .false.
   a(:) = nan
   ia = minloc (a, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 11
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 12
   a(:) = pinf
   ia = minloc (a, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 13
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 14
   a(1:2) = nan
   ia = minloc (a, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 15
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 16
   a(2) = 1.0
   ia = minloc (a, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 17
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 18
   a(2) = minf
   ia = minloc (a, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 19
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 20
   c(:) = nan
   ia = minloc (c, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 21
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 22
   c(:) = pinf
   ia = minloc (c, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 23
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 24
   c(1:2) = nan
   ia = minloc (c, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 25
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 26
   c(2) = 1.0
   ia = minloc (c, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 27
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 28
   c(2) = minf
   ia = minloc (c, mask = l)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 29
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 30
   l = .true.
   l2(:) = .true.
   a(:) = nan
   ia = minloc (a, mask = l)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 31
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 32
   a(:) = pinf
   ia = minloc (a, mask = l)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 33
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 34
   a(1:2) = nan
   ia = minloc (a, mask = l)
-  if (ia(1).ne.3) call abort
+  if (ia(1).ne.3) STOP 35
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.3) call abort
+  if (ia(1).ne.3) STOP 36
   a(2) = 1.0
   ia = minloc (a, mask = l)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 37
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 38
   a(2) = minf
   ia = minloc (a, mask = l)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 39
   ia = minloc (a, mask = l2)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 40
   c(:) = nan
   ia = minloc (c, mask = l)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 41
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 42
   c(:) = pinf
   ia = minloc (c, mask = l)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 43
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.1) call abort
+  if (ia(1).ne.1) STOP 44
   c(1:2) = nan
   ia = minloc (c, mask = l)
-  if (ia(1).ne.3) call abort
+  if (ia(1).ne.3) STOP 45
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.3) call abort
+  if (ia(1).ne.3) STOP 46
   c(2) = 1.0
   ia = minloc (c, mask = l)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 47
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 48
   c(2) = minf
   ia = minloc (c, mask = l)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 49
   ia = minloc (c, mask = l2)
-  if (ia(1).ne.2) call abort
+  if (ia(1).ne.2) STOP 50
   deallocate (c)
   allocate (c(-2:-3))
   ia = minloc (c)
-  if (ia(1).ne.0) call abort
+  if (ia(1).ne.0) STOP 51
 end