[svn-r13289] Added support for g95 for MAC Intel Darwin 8.8.2

Platforms tested: my laptop (pahra) and kagiso (too minor for h5commit)

2 files changed, 81 insertions, 2 deletions

diff --git a/fortran/config/i686-darwin8.8.2 b/fortran/config/i686-darwin8.8.2
new file mode 100644
index 0000000..13c8d22
--- /dev/null
+++ b/fortran/config/i686-darwin8.8.2
@@ -0,0 +1,77 @@
+#							-*- shell-script -*-
+#
+# Copyright by the Board of Trustees of the University of Illinois.
+# All rights reserved.
+#
+# This file is part of HDF5.  The full HDF5 copyright notice, including
+# terms governing use, modification, and redistribution, is contained in
+# the files COPYING and Copyright.html.  COPYING can be found at the root
+# of the source code distribution tree; Copyright.html can be found at the
+# root level of an installed copy of the electronic HDF5 document set and
+# is linked from the top-level documents page.  It can also be found at
+# http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html.  If you do not have
+# access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu.
+
+
+# This file is part of the HDF5 build script.  It is processed shortly
+# after configure starts and defines, among other things, flags for
+# the various compile modes.
+#
+# See BlankForm in this directory for details.
+
+# The default compiler is `gcc'
+if test "X-" = "X-$CC"; then
+    CC=gcc
+    CC_BASENAME=gcc
+fi
+
+. $srcdir/config/gnu-flags
+
+
+# The default Fortran 90 compiler
+if test "X-" = "X-$F9X"; then
+    F9X=g95
+    F9X_BASENAME=g95
+fi
+# Figure out the F9X_BASENAME
+    tmpfile=/tmp/cmpver.$$
+    ( $F9X -v; $F9X -V) >$tmpfile 2>&1
+    if grep 'g95' $tmpfile > /dev/null; then
+        F9X_BASENAME=g95
+        CFLAGS="$CFLAGS -DH5_G95"
+    fi
+rm -f $tmpfile 
+
+#
+# HDF5 integers
+#
+# 	R_LARGE is the number of digits for the bigest integer supported.
+#	R_INTEGER is the number of digits in INTEGER
+#
+# (for the AIX architechture)
+#
+R_LARGE=18
+R_INTEGER=9
+HADDR_T='SELECTED_INT_KIND(R_LARGE)'
+HSIZE_T='SELECTED_INT_KIND(R_LARGE)'
+HSSIZE_T='SELECTED_INT_KIND(R_LARGE)'
+HID_T='SELECTED_INT_KIND(R_INTEGER)'
+SIZE_T='SELECTED_INT_KIND(R_INTEGER)'
+OBJECT_NAMELEN_DEFAULT_F=-1
+
+case $F9X_BASENAME in
+    g95) 
+        F9XSUFFIXFLAG=""
+        FFLAGS="$FFLAGS "
+        FSEARCH_DIRS="-I./ -I../src"
+        DEBUG_FFLAGS="-g"
+        PROD_FFLAGS="-O"
+        PROFILE_FFLAGS="-g -pg"
+        f9x_flags_set=yes
+        here
+        ;;
+
+
+esac
+
+    
diff --git a/fortran/src/H5f90i.h b/fortran/src/H5f90i.h
index 0286168..7ba47a3 100644
--- a/fortran/src/H5f90i.h
+++ b/fortran/src/H5f90i.h
@@ -62,7 +62,9 @@ typedef int               size_t_f;
 typedef int               int_f;
 typedef int               hid_t_f;
 typedef float             real_f;
-#define FNAME(x) x
+#if defined H5_G95
+#define FNAME_POST2_UNDERSCORE
+#endif
 #if defined H5_ABSOFT
 #define DF_CAPFNAMES
 #endif /*H5_ABSOFT*/
@@ -240,7 +242,7 @@ typedef float             real_f;
 #if !defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST_UNDERSCORE)
 #   define FNAME(x)     x##_
 #endif
-#if !defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE)
+#if !defined(FNAME_PRE_UNDERSCORE) && !defined(FNAME_POST_UNDERSCORE) && !defined(FNAME_POST2_UNDERSCORE)
 #   define FNAME(x)     x
 #endif
 #if !defined(FNAME_PRE_UNDERSCORE) && defined(FNAME_POST2_UNDERSCORE)