From a740c361cd44506caa3837f19fa1f70e4764ac94 Mon Sep 17 00:00:00 2001
From: "Tomoki, Karatsu" <49965247+t-karatsu@users.noreply.github.com>
Date: Wed, 13 May 2020 22:10:07 +0900
Subject: ppopen-appl-fdm: added support to Fujitsu compilers. (#16616)

---
 .../builtin/packages/ppopen-appl-fdm/iargc_definition.patch | 13 +++++++++++++
 var/spack/repos/builtin/packages/ppopen-appl-fdm/package.py |  5 ++++-
 2 files changed, 17 insertions(+), 1 deletion(-)
 create mode 100644 var/spack/repos/builtin/packages/ppopen-appl-fdm/iargc_definition.patch

(limited to 'var')

diff --git a/var/spack/repos/builtin/packages/ppopen-appl-fdm/iargc_definition.patch b/var/spack/repos/builtin/packages/ppopen-appl-fdm/iargc_definition.patch
new file mode 100644
index 0000000000..4f149873ae
--- /dev/null
+++ b/var/spack/repos/builtin/packages/ppopen-appl-fdm/iargc_definition.patch
@@ -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) )
+     
diff --git a/var/spack/repos/builtin/packages/ppopen-appl-fdm/package.py b/var/spack/repos/builtin/packages/ppopen-appl-fdm/package.py
index 450ae99efb..1b3acfd692 100755
--- a/var/spack/repos/builtin/packages/ppopen-appl-fdm/package.py
+++ b/var/spack/repos/builtin/packages/ppopen-appl-fdm/package.py
@@ -24,7 +24,10 @@ class PpopenApplFdm(MakefilePackage):
     patch('unused.patch')
     # remove iargc external definition
     # 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('mpi')
-- 
cgit v1.2.3-70-g09d2