philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[svn-r24967] Maintenance: Reorganized and cleaned the code to remove compiler warnings in the Fortran test code

Browse Source 
and examples. 

Platforms tested: Manual testing in place and using srcdir on jam, platypus, and emu with default and 
                  PGI, Intel and new GNU compilers. ifort compiler was also tested with -i8 and -r8 flags
                  on jam.  CMake tested on jam.
This commit is contained in:
Elena Pourmal
2014-04-06 10:56:21 -05:00
parent a9724dfd6c
commit 70daa61a87
40 changed files with 1154 additions and 844 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
fortran/examples/rwdset_fortran2003.f90
View File

@@ -53,13 +53,11 @@ PROGRAM RWDSET_FORTRAN2003
INTEGER(HID_T) :: dset_idr8 ! Dataset identifier
INTEGER :: error ! Error flag
INTEGER :: i, j
INTEGER :: i
! Data buffers:
INTEGER, DIMENSION(1:4) :: dset_data
INTEGER(int_kind_1), DIMENSION(1:4), TARGET :: dset_data_i1, data_out_i1
INTEGER(int_kind_1), DIMENSION(1:4), TARGET :: dset_data_i1
INTEGER(int_kind_4), DIMENSION(1:4), TARGET :: dset_data_i4, data_out_i4
INTEGER(int_kind_8), DIMENSION(1:4), TARGET :: dset_data_i8, data_out_i8
INTEGER(int_kind_16), DIMENSION(1:4), TARGET :: dset_data_i16, data_out_i16
@@ -73,7 +71,6 @@ PROGRAM RWDSET_FORTRAN2003
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
TYPE(C_PTR) :: f_ptr
INTEGER(hid_t) :: datatype !/* Common datatype ID */
!
! Initialize FORTRAN interface.