Merge pull request #2 from zbeekman/DPD200247629-work-around

DPD200247629 work around

Author: jacobwilliams

README.md

@@ -6,7 +6,7 @@ A Fortran 2003/2008 JSON API
 Brief Description
 ---------------
 
-A mostly-complete API for reading and writing JSON files, written in modern Fortran.  The code requires a Fortran compiler that supports various Fortran 2003 and Fortran 2008 features such as: allocatable strings, associate, newunit, generic, class, and abstract interface.  I am using the Intel Fortran compiler 13.1.0 on Linux (the Mac and PC versions should also work fine).  It does not currently compile with the gnu gfortran compiler.  The source code is a single Fortran module file (json_module.f90).
+A mostly-complete API for reading and writing JSON files, written in modern Fortran.  The code requires a Fortran compiler that supports various Fortran 2003 and Fortran 2008 features such as: allocatable strings, associate, newunit, generic, class, and abstract interface.  I am using the Intel Fortran compiler 13.1.0 on Linux (the Mac and PC versions should also work fine).  It also currently compiles under recent experimental 4.9 release of the gnu gfortran compiler.  The source code is a single Fortran module file (json_module.f90).
 
 Reading a JSON file
 ---------------

build.sh

@@ -6,13 +6,28 @@
 #  Jacob Williams : 2/8/2014
 #
 
+# Uncomment to debug
+#set -x
+
 SRCDIR='src/'
 BUILDDIR='lib/'
 BINDIR='bin/'
 
+# Intel compiler
 FCOMPILER='ifort'
-FCOMPILERFLAGS='-O2'
-#FCOMPILERFLAGS='-check all -debug full'
+# The following warning might be triggered by ifort unless explicitly silenced:
+# warning #7601: F2008 standard does not allow an internal procedure to be an actual argument procedure name. (R1214.4).
+# In the context of F2008 this is an erroneous warning.
+# See https://prd1idz.cps.intel.com/en-us/forums/topic/486629
+FCOMPILERFLAGS='-O2 -warn -stand f08 -diag-disable 7601 -traceback'
+#FCOMPILERFLAGS='-warn -traceback -stand f08 -assume protect_parens -assume buffered_io -check all'
+# trailing space is significant
+FCMODULEPATHFLAG='-module '
+
+# GFortran (must be >= 4.9)
+#FCOMPILER='/opt/local/bin/gfortran-mp-4.9'
+#FCOMPILERFLAGS='-O2 -fbacktrace -Wall -Wextra -Wno-maybe-uninitialized -pedantic -std=f2008'
+#FCMODULEPATHFLAG='-J'
 
 ARCHIVER='ar'
 ARCHIVERFLAGS='-cq'
@@ -32,8 +47,9 @@ mkdir -p $BUILDDIR
 mkdir -p $BINDIR
 
 #build library:
-$FCOMPILER $FCOMPILERFLAGS -c $SRCDIR$MODCODE$FEXT -Fo$BUILDDIR -module $BUILDDIR
+$FCOMPILER $FCOMPILERFLAGS -c $SRCDIR$MODCODE$FEXT $FCMODULEPATHFLAG$BUILDDIR
+mv $MODCODE$OBJEXT $BUILDDIR
 $ARCHIVER $ARCHIVERFLAGS $BUILDDIR$LIBOUT$LIBEXT $BUILDDIR$MODCODE$OBJEXT
 
 #build example:
-$FCOMPILER $FCOMPILERFLAGS -o $BINDIR$EXEOUT -module $BUILDDIR $SRCDIR$EXAMPLECODE$FEXT $BUILDDIR$LIBOUT$LIBEXT
+$FCOMPILER $FCOMPILERFLAGS -o $BINDIR$EXEOUT $FCMODULEPATHFLAG$BUILDDIR $SRCDIR$EXAMPLECODE$FEXT $BUILDDIR$LIBOUT$LIBEXT

files/test2.json

@@ -4,30 +4,30 @@
 "tf": 0.1100000000000000E+001,
 "x0": 0.9999000000000000E+004,
 "integer_scalar": 1,
-"integer_array":  [
+"integer_array": [
       2,
       4,
       99
     ],
-"names":  [
+"names": [
       "aaa",
       "bbb",
       "ccc"
     ],
 "logical_scalar": true,
-"logical_vector":  [
+"logical_vector": [
       true,
       false,
       true
     ]
 },
-"trajectory":  [
+"trajectory": [
     {
     "VARIABLE": "Rx",
     "UNITS": "km",
     "FRAME": "J2000",
     "CENTER": "EARTH",
-    "DATA":  [
+    "DATA": [
         0.1000000000000000E+001,
         0.2000000000000000E+001,
         0.3000000000000000E+001
@@ -38,7 +38,7 @@
     "UNITS": "km",
     "FRAME": "J2000",
     "CENTER": "EARTH",
-    "DATA":  [
+    "DATA": [
         0.1000000000000000E+002,
         0.2000000000000000E+002,
         0.3000000000000000E+002
@@ -49,7 +49,7 @@
     "UNITS": "km",
     "FRAME": "J2000",
     "CENTER": "EARTH",
-    "DATA":  [
+    "DATA": [
         0.1000000000000000E+003,
         0.2000000000000000E+003,
         0.3000000000000000E+003
@@ -60,7 +60,7 @@
     "UNITS": "km\/s",
     "FRAME": "J2000",
     "CENTER": "EARTH",
-    "DATA":  [
+    "DATA": [
         0.1000000000000000E-002,
         0.2000000000000000E-002,
         0.3000000000000000E-002
@@ -71,7 +71,7 @@
     "UNITS": "km\/s",
     "FRAME": "J2000",
     "CENTER": "EARTH",
-    "DATA":  [
+    "DATA": [
         0.2000000000000000E-002,
         0.2000000000000000E-001,
         0.3000000000000000E-002
@@ -82,7 +82,7 @@
     "UNITS": "km\/s",
     "FRAME": "J2000",
     "CENTER": "EARTH",
-    "DATA":  [
+    "DATA": [
         0.3000000000000000E-002,
         0.3000000000000000E-001,
         0.4000000000000000E-001

src/json_example.f90

@@ -333,7 +333,6 @@ subroutine add_variables_to_input(me, variable, units, frame, center, rdata)
     real(wp),dimension(:),intent(in) :: rdata
 
     type(json_value),pointer :: var        !a variable in the trajectory:
-    integer :: i
 
     !initialize:
     nullify(var)
@@ -617,4 +616,4 @@ end subroutine print_error_message
 
 !*******************************************************************************************************
     end program json_test
-!*******************************************************************************************************
+!*******************************************************************************************************