Accepting request 989228 from home:StefanBruens:branches:science

- Fix bad calling convention found by recent GFortran:
  0001-Pass-rank-1-dummy-for-auxiliary-array-in-isortii.patch

OBS-URL: https://build.opensuse.org/request/show/989228
OBS-URL: https://build.opensuse.org/package/show/science/ccx?expand=0&rev=13

0001-Pass-rank-1-dummy-for-auxiliary-array-in-isortii.patch

@@ -0,0 +1,27 @@
+From 1a7801c596a2649a198779ff513627f3007b38bf Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Stefan=20Br=C3=BCns?= <stefan.bruens@rwth-aachen.de>
+Date: Thu, 14 Jul 2022 18:19:33 +0200
+Subject: [PATCH] Pass rank-1 dummy for auxiliary array in isortii
+
+Passing an scalar in place of a (dummy) rank-1 array is invalid
+according to the Fortran standard.
+---
+ src/gencontelem_n2f.f | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/src/gencontelem_n2f.f b/src/gencontelem_n2f.f
+index eef6205..280b495 100644
+--- a/src/gencontelem_n2f.f
++++ b/src/gencontelem_n2f.f
+@@ -37,7 +37,7 @@
+ !
+       integer ntie,ifree,nasym,icutb,ne0,mortar,jqw(*),iroww(*),
+      &  itietri(2,ntie),ipkon(*),kon(*),koncont(4,*),ne,node,
+-     &  neigh(1),iflag,kneigh,i,j,k,l,isol,iset,idummy,
++     &  neigh(1),iflag,kneigh,i,j,k,l,isol,iset,idummy(1),
+      &  itri,ll,kflag,n,nx(*),ny(*),istep,iinc,mi(*),nzsw,
+      &  nz(*),nstart,ielmat(mi(3),*),imat,ifaceq(8,6),ifacet(6,4),
+      &  ifacew1(4,5),ifacew2(8,5),nelem,jface,indexe,iit,
+-- 
+2.37.0
+

ccx.changes

@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Thu Jul 14 16:22:01 UTC 2022 - Stefan Brüns <stefan.bruens@rwth-aachen.de>
+
+- Fix bad calling convention found by recent GFortran:
+  0001-Pass-rank-1-dummy-for-auxiliary-array-in-isortii.patch
+
 -------------------------------------------------------------------
 Sun Jan 30 19:11:16 UTC 2022 - Stefan Brüns <stefan.bruens@rwth-aachen.de>
 

ccx.spec

@@ -34,6 +34,7 @@ Patch3:         0001-Add-missing-argument-for-inputerror-function-call.patch
 Patch4:         0001-Use-interface-for-cubtri-callback-function.patch
 Patch5:         0001-Fix-wrong-parameter-passed-to-us3_materialdata_me.patch
 Patch6:         0001-Fix-wrong-scalar-declaration-for-2x2-inverse-Jacobia.patch
+Patch7:         0001-Pass-rank-1-dummy-for-auxiliary-array-in-isortii.patch
 BuildRequires:  arpack-ng-devel
 BuildRequires:  fdupes
 BuildRequires:  gcc-fortran
@@ -139,7 +140,7 @@ for f in beamwrite*.inp ; do
     checkInput beamread${tc}.inp
 done
 
-# CHeck results
+# Check results
 set -x
 if [ -s errorlog ] ; then
     cat ccxlog