Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/minlocval_4.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/minlocval_4.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/minlocval_4.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -21,100 +21,100 @@
   l5(1,2) = .false.
   l5(2,3) = .false.
   a = reshape ((/ nan, nan, nan, pinf, pinf, pinf, pinf, minf, pinf /), (/ 3, 3 /))
-  if (minval (a).ne.minf) call abort
-  if (any (minloc (a).ne.(/ 2, 3 /))) call abort
+  if (minval (a).ne.minf) STOP 1
+  if (any (minloc (a).ne.(/ 2, 3 /))) STOP 2
   b = minval (a, dim = 1)
-  if (.not.isnan(b(1))) call abort
+  if (.not.isnan(b(1))) STOP 3
   b(1) = 0.0
-  if (any (b.ne.(/ 0.0, pinf, minf /))) call abort
-  if (any (minloc (a, dim = 1).ne.(/ 1, 1, 2 /))) call abort
+  if (any (b.ne.(/ 0.0, pinf, minf /))) STOP 4
+  if (any (minloc (a, dim = 1).ne.(/ 1, 1, 2 /))) STOP 5
   b = minval (a, dim = 2)
-  if (any (b.ne.(/ pinf, minf, pinf /))) call abort
-  if (any (minloc (a, dim = 2).ne.(/ 2, 3, 2 /))) call abort
-  if (minval (a, mask = l).ne.h) call abort
-  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort
+  if (any (b.ne.(/ pinf, minf, pinf /))) STOP 6
+  if (any (minloc (a, dim = 2).ne.(/ 2, 3, 2 /))) STOP 7
+  if (minval (a, mask = l).ne.h) STOP 8
+  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 9
   b = minval (a, dim = 1, mask = l)
-  if (any (b.ne.(/ h, h, h /))) call abort
-  if (any (minloc (a, dim = 1, mask = l).ne.(/ 0, 0, 0 /))) call abort
+  if (any (b.ne.(/ h, h, h /))) STOP 10
+  if (any (minloc (a, dim = 1, mask = l).ne.(/ 0, 0, 0 /))) STOP 11
   b = minval (a, dim = 2, mask = l)
-  if (any (b.ne.(/ h, h, h /))) call abort
-  if (any (minloc (a, dim = 2, mask = l).ne.(/ 0, 0, 0 /))) call abort
-  if (minval (a, mask = l3).ne.h) call abort
-  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort
+  if (any (b.ne.(/ h, h, h /))) STOP 12
+  if (any (minloc (a, dim = 2, mask = l).ne.(/ 0, 0, 0 /))) STOP 13
+  if (minval (a, mask = l3).ne.h) STOP 14
+  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 15
   b = minval (a, dim = 1, mask = l3)
-  if (any (b.ne.(/ h, h, h /))) call abort
-  if (any (minloc (a, dim = 1, mask = l3).ne.(/ 0, 0, 0 /))) call abort
+  if (any (b.ne.(/ h, h, h /))) STOP 16
+  if (any (minloc (a, dim = 1, mask = l3).ne.(/ 0, 0, 0 /))) STOP 17
   b = minval (a, dim = 2, mask = l3)
-  if (any (b.ne.(/ h, h, h /))) call abort
-  if (any (minloc (a, dim = 2, mask = l3).ne.(/ 0, 0, 0 /))) call abort
-  if (minval (a, mask = l2).ne.minf) call abort
-  if (minval (a, mask = l4).ne.minf) call abort
-  if (any (minloc (a, mask = l2).ne.(/ 2, 3 /))) call abort
-  if (any (minloc (a, mask = l4).ne.(/ 2, 3 /))) call abort
+  if (any (b.ne.(/ h, h, h /))) STOP 18
+  if (any (minloc (a, dim = 2, mask = l3).ne.(/ 0, 0, 0 /))) STOP 19
+  if (minval (a, mask = l2).ne.minf) STOP 20
+  if (minval (a, mask = l4).ne.minf) STOP 21
+  if (any (minloc (a, mask = l2).ne.(/ 2, 3 /))) STOP 22
+  if (any (minloc (a, mask = l4).ne.(/ 2, 3 /))) STOP 23
   b = minval (a, dim = 1, mask = l2)
-  if (.not.isnan(b(1))) call abort
+  if (.not.isnan(b(1))) STOP 24
   b(1) = 0.0
-  if (any (b.ne.(/ 0.0, pinf, minf /))) call abort
-  if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) call abort
+  if (any (b.ne.(/ 0.0, pinf, minf /))) STOP 25
+  if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) STOP 26
   b = minval (a, dim = 2, mask = l2)
-  if (any (b.ne.(/ pinf, minf, pinf /))) call abort
-  if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) call abort
+  if (any (b.ne.(/ pinf, minf, pinf /))) STOP 27
+  if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) STOP 28
   b = minval (a, dim = 1, mask = l4)
-  if (.not.isnan(b(1))) call abort
+  if (.not.isnan(b(1))) STOP 29
   b(1) = 0.0
-  if (any (b.ne.(/ 0.0, pinf, minf /))) call abort
-  if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) call abort
+  if (any (b.ne.(/ 0.0, pinf, minf /))) STOP 30
+  if (any (minloc (a, dim = 1, mask = l2).ne.(/ 1, 1, 2 /))) STOP 31
   b = minval (a, dim = 2, mask = l4)
-  if (any (b.ne.(/ pinf, minf, pinf /))) call abort
-  if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) call abort
-  if (minval (a, mask = l5).ne.pinf) call abort
-  if (any (minloc (a, mask = l5).ne.(/ 2, 2 /))) call abort
+  if (any (b.ne.(/ pinf, minf, pinf /))) STOP 32
+  if (any (minloc (a, dim = 2, mask = l2).ne.(/ 2, 3, 2 /))) STOP 33
+  if (minval (a, mask = l5).ne.pinf) STOP 34
+  if (any (minloc (a, mask = l5).ne.(/ 2, 2 /))) STOP 35
   b = minval (a, dim = 1, mask = l5)
-  if (.not.isnan(b(1))) call abort
+  if (.not.isnan(b(1))) STOP 36
   b(1) = 0.0
-  if (any (b.ne.(/ 0.0, pinf, pinf /))) call abort
-  if (any (minloc (a, dim = 1, mask = l5).ne.(/ 2, 2, 1 /))) call abort
+  if (any (b.ne.(/ 0.0, pinf, pinf /))) STOP 37
+  if (any (minloc (a, dim = 1, mask = l5).ne.(/ 2, 2, 1 /))) STOP 38
   b = minval (a, dim = 2, mask = l5)
-  if (any (b.ne.(/ pinf, pinf, pinf /))) call abort
-  if (any (minloc (a, dim = 2, mask = l5).ne.(/ 3, 2, 2 /))) call abort
+  if (any (b.ne.(/ pinf, pinf, pinf /))) STOP 39
+  if (any (minloc (a, dim = 2, mask = l5).ne.(/ 3, 2, 2 /))) STOP 40
   a = nan
-  if (.not.isnan(minval (a))) call abort
-  if (minval (a, mask = l).ne.h) call abort
-  if (.not.isnan(minval (a, mask = l2))) call abort
-  if (minval (a, mask = l3).ne.h) call abort
-  if (.not.isnan(minval (a, mask = l4))) call abort
-  if (.not.isnan(minval (a, mask = l5))) call abort
-  if (any (minloc (a).ne.(/ 1, 1 /))) call abort
-  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort
-  if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) call abort
-  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort
-  if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) call abort
-  if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) call abort
+  if (.not.isnan(minval (a))) STOP 41
+  if (minval (a, mask = l).ne.h) STOP 42
+  if (.not.isnan(minval (a, mask = l2))) STOP 43
+  if (minval (a, mask = l3).ne.h) STOP 44
+  if (.not.isnan(minval (a, mask = l4))) STOP 45
+  if (.not.isnan(minval (a, mask = l5))) STOP 46
+  if (any (minloc (a).ne.(/ 1, 1 /))) STOP 47
+  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 48
+  if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) STOP 49
+  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 50
+  if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) STOP 51
+  if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) STOP 52
   a = pinf
-  if (minval (a).ne.pinf) call abort
-  if (minval (a, mask = l).ne.h) call abort
-  if (minval (a, mask = l2).ne.pinf) call abort
-  if (minval (a, mask = l3).ne.h) call abort
-  if (minval (a, mask = l4).ne.pinf) call abort
-  if (minval (a, mask = l5).ne.pinf) call abort
-  if (any (minloc (a).ne.(/ 1, 1 /))) call abort
-  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort
-  if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) call abort
-  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort
-  if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) call abort
-  if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) call abort
+  if (minval (a).ne.pinf) STOP 53
+  if (minval (a, mask = l).ne.h) STOP 54
+  if (minval (a, mask = l2).ne.pinf) STOP 55
+  if (minval (a, mask = l3).ne.h) STOP 56
+  if (minval (a, mask = l4).ne.pinf) STOP 57
+  if (minval (a, mask = l5).ne.pinf) STOP 58
+  if (any (minloc (a).ne.(/ 1, 1 /))) STOP 59
+  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 60
+  if (any (minloc (a, mask = l2).ne.(/ 1, 1 /))) STOP 61
+  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 62
+  if (any (minloc (a, mask = l4).ne.(/ 1, 1 /))) STOP 63
+  if (any (minloc (a, mask = l5).ne.(/ 2, 1 /))) STOP 64
   a = nan
   a(1,3) = pinf
-  if (minval (a).ne.pinf) call abort
-  if (minval (a, mask = l).ne.h) call abort
-  if (minval (a, mask = l2).ne.pinf) call abort
-  if (minval (a, mask = l3).ne.h) call abort
-  if (minval (a, mask = l4).ne.pinf) call abort
-  if (minval (a, mask = l5).ne.pinf) call abort
-  if (any (minloc (a).ne.(/ 1, 3 /))) call abort
-  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) call abort
-  if (any (minloc (a, mask = l2).ne.(/ 1, 3 /))) call abort
-  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) call abort
-  if (any (minloc (a, mask = l4).ne.(/ 1, 3 /))) call abort
-  if (any (minloc (a, mask = l5).ne.(/ 1, 3 /))) call abort
+  if (minval (a).ne.pinf) STOP 65
+  if (minval (a, mask = l).ne.h) STOP 66
+  if (minval (a, mask = l2).ne.pinf) STOP 67
+  if (minval (a, mask = l3).ne.h) STOP 68
+  if (minval (a, mask = l4).ne.pinf) STOP 69
+  if (minval (a, mask = l5).ne.pinf) STOP 70
+  if (any (minloc (a).ne.(/ 1, 3 /))) STOP 71
+  if (any (minloc (a, mask = l).ne.(/ 0, 0 /))) STOP 72
+  if (any (minloc (a, mask = l2).ne.(/ 1, 3 /))) STOP 73
+  if (any (minloc (a, mask = l3).ne.(/ 0, 0 /))) STOP 74
+  if (any (minloc (a, mask = l4).ne.(/ 1, 3 /))) STOP 75
+  if (any (minloc (a, mask = l5).ne.(/ 1, 3 /))) STOP 76
 end