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
This commit is contained in:
parent
c688bd990c
commit
f63584d6a3
27
0001-Pass-rank-1-dummy-for-auxiliary-array-in-isortii.patch
Normal file
27
0001-Pass-rank-1-dummy-for-auxiliary-array-in-isortii.patch
Normal file
@ -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
|
||||
|
@ -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>
|
||||
|
||||
|
3
ccx.spec
3
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
|
||||
|
Loading…
Reference in New Issue
Block a user