diff options
| author | Scott Wegner <swegner@hdfgroup.org> | 2008-10-20 14:34:40 (GMT) |
|---|---|---|
| committer | Scott Wegner <swegner@hdfgroup.org> | 2008-10-20 14:34:40 (GMT) |
| commit | 2a2bc809872a30715ad81e71a5df24263b2523de (patch) | |
| tree | ec577b868422d27f626b2a5f6828b0f78f15adf0 /fortran | |
| parent | ad28fa5b0c1384fe70397fb2eaa83e2a6e62699d (diff) | |
| download | hdf5-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')
| -rw-r--r-- | fortran/src/H5match_types.c | 9 |
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 */ |