Mercurial > hg > CbC > CbC_gcc

diff gcc/testsuite/gfortran.dg/inline_matmul_3.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 (2018-10-25)
parents 84e7813d76e9
children
line wrap: on
line diff
--- a/gcc/testsuite/gfortran.dg/inline_matmul_3.f90	Thu Oct 25 08:08:40 2018 +0900
+++ b/gcc/testsuite/gfortran.dg/inline_matmul_3.f90	Thu Oct 25 10:21:07 2018 +0900
@@ -15,23 +15,23 @@
   data b /17., -23., 29., -31., 37., -39., 41., -47./
   data cres /195., -304.,  384.,  275., -428.,  548.,  347., -540.,  692.,  411., -640.,  816./
   c = matmul(a,b)
-  if (sum(c-cres)>1e-4) call abort
+  if (sum(c-cres)>1e-4) STOP 1
 
   calloc = matmul(a,b)
-  if (sum(calloc-cres)>1e-4) call abort
-  if (any([size(calloc,1), size(calloc,2)] /= [3,4])) call abort
+  if (sum(calloc-cres)>1e-4) STOP 2
+  if (any([size(calloc,1), size(calloc,2)] /= [3,4])) STOP 3
   deallocate(calloc)
 
   allocate(calloc(4,4))
   calloc = matmul(a,b)
-  if (sum(calloc-cres)>1e-4) call abort
-  if (any([size(calloc,1), size(calloc,2)] /= [3,4])) call abort
+  if (sum(calloc-cres)>1e-4) STOP 4
+  if (any([size(calloc,1), size(calloc,2)] /= [3,4])) STOP 5
   deallocate(calloc)
 
   allocate(calloc(3,3))
   calloc = matmul(a,b)
-  if (sum(calloc-cres)>1e-4) call abort
-  if (any([size(calloc,1), size(calloc,2)] /= [3,4])) call abort
+  if (sum(calloc-cres)>1e-4) STOP 6
+  if (any([size(calloc,1), size(calloc,2)] /= [3,4])) STOP 7
   deallocate(calloc)
   
   block
@@ -40,23 +40,23 @@
     bb = b
 
     cc = matmul(aa,bb)
-    if (sum(cc-cres)>1e-4) call abort
+    if (sum(cc-cres)>1e-4) STOP 8
     calloc = matmul(aa,bb)
-    if (sum(calloc-cres)>1e-4) call abort
-    if (any([size(calloc,1), size(calloc,2)] /= [3,4])) call abort
+    if (sum(calloc-cres)>1e-4) STOP 9
+    if (any([size(calloc,1), size(calloc,2)] /= [3,4])) STOP 10
     calloc = 42.
     deallocate(calloc)
 
     allocate(calloc(4,4))
     calloc = matmul(aa,bb)
-    if (sum(calloc-cres)>1e-4) call abort
-    if (any([size(calloc,1), size(calloc,2)] /= [3,4])) call abort
+    if (sum(calloc-cres)>1e-4) STOP 11
+    if (any([size(calloc,1), size(calloc,2)] /= [3,4])) STOP 12
     deallocate(calloc)
 
     allocate(calloc(3,3))
     calloc = matmul(aa,bb)
-    if (sum(calloc-cres)>1e-4) call abort
-    if (any([size(calloc,1), size(calloc,2)] /= [3,4])) call abort
+    if (sum(calloc-cres)>1e-4) STOP 13
+    if (any([size(calloc,1), size(calloc,2)] /= [3,4])) STOP 14
     deallocate(calloc)
   end block