summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScott Wegner <swegner@hdfgroup.org>2008-10-20 14:34:40 (GMT)
committerScott Wegner <swegner@hdfgroup.org>2008-10-20 14:34:40 (GMT)
commit2a2bc809872a30715ad81e71a5df24263b2523de (patch)
treeec577b868422d27f626b2a5f6828b0f78f15adf0 /fortran/src
parentad28fa5b0c1384fe70397fb2eaa83e2a6e62699d (diff)
downloadhdf5-2a2bc809872a30715ad81e71a5df24263b2523de.zip
hdf5-2a2bc809872a30715ad81e71a5df24263b2523de.tar.gz
hdf5-2a2bc809872a30715ad81e71a5df24263b2523de.tar.bz2
[svn-r15903] Purpose: Fix Windows compiler error
Description: Visual Studio compiler was complaining because variables were declared mid-function, when they should be declared at the top. This checkin simply moves the declarations to the top. Tested: Simple edit, VS2005 only
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5match_types.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c
index 1e0c5dc..034ff72 100644
--- a/fortran/src/H5match_types.c
+++ b/fortran/src/H5match_types.c
@@ -136,10 +136,6 @@ void writeFloatToFiles(const char* fortran_type, const char* c_type, unsigned in
int main()
{
- /* Open target files */
- c_header = fopen(CFILE, "w");
- fort_header = fopen(FFILE, "w");
-
int FoundIntSize[4];
int FoundRealSize[4];
int i,j,flag;
@@ -147,6 +143,11 @@ int main()
int H5_C_HAS_REAL_NATIVE_16;
int H5_C_HAS_REAL_NATIVE_12;
+ /* Open target files */
+ c_header = fopen(CFILE, "w");
+ fort_header = fopen(FFILE, "w");
+
+
/* Default is C has 16 byte float */
H5_C_HAS_REAL_NATIVE_16 = 1;
/* Default is C has 12 byte float */