zhangyiss/spack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ppopen-appl-fdm: added support to Fujitsu compilers. (#16616)

Browse Source
This commit is contained in:
Tomoki, Karatsu 2020-05-13 22:10:07 +09:00 committed by GitHub
parent 4777284f08
commit a740c361cd
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
var/spack/repos/builtin/packages/ppopen-appl-fdm/iargc_definition.patch Normal file
View File

@ -0,0 +1,13 @@
--- spack-src/tools/seismic_2D-tools/m_getopt.f90.org 2020-05-13 10:14:41.822006522 +0900
+++ spack-src/tools/seismic_2D-tools/m_getopt.f90 2020-05-13 10:17:01.102690012 +0900
@@ -80,7 +80,9 @@
character(256), allocatable :: argv(:)
integer :: i
character(256) :: optkey
-
+
+ integer, external :: iargc
+
narg = iargc()
allocate( argv(1:narg) )

5
var/spack/repos/builtin/packages/ppopen-appl-fdm/package.py
View File

@ -24,7 +24,10 @@ class PpopenApplFdm(MakefilePackage):
patch('unused.patch') patch('unused.patch')
# remove iargc external definition # remove iargc external definition
# iargc is intrinsic in gfortran # iargc is intrinsic in gfortran
patch('gfortran_iargc.patch') patch('gfortran_iargc.patch', when='%gcc')
# Fixed a problem that 'iargc' was not declared in advance
patch('iargc_definition.patch', when='%fj')
depends_on('ppopen-math-vis', type='link') depends_on('ppopen-math-vis', type='link')
depends_on('mpi') depends_on('mpi')