Fixed a small bug in src/json_module.f90

The abstract interface did not match the actual interface.
Build rules using gfortran 4.9 (experimental) were added
to the build script which is what led me to discover this
bug. A very recent gfortran 4.9 is needed, mine was build
from sources April 6, 2014.

Author: zbeekman

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

src/json_module.f90

@@ -224,7 +224,7 @@ module json_module
         subroutine array_callback_func(element, i, count)
             import :: json_value
             implicit none
-            type(json_value), pointer :: element
+            type(json_value), pointer,intent(in) :: element
             integer,intent(in) :: i        !index
             integer,intent(in) :: count    !size of array
         end subroutine array_callback_func