summaryrefslogtreecommitdiffstats
path: root/hl/fortran/test
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2011-06-13 03:47:56 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2011-06-13 03:47:56 (GMT)
commit6d3d8cc89f938ad516f5bc24f088ae9a3c203f82 (patch)
tree3074625963518a5812b1f3029a7049cd675efbda /hl/fortran/test
parent5fde8ebdc25704ebc883dbbee2ad811cd0eaca85 (diff)
downloadhdf5-6d3d8cc89f938ad516f5bc24f088ae9a3c203f82.zip
hdf5-6d3d8cc89f938ad516f5bc24f088ae9a3c203f82.tar.gz
hdf5-6d3d8cc89f938ad516f5bc24f088ae9a3c203f82.tar.bz2
[svn-r20969] Initialized errcode and type_sizeout to 0 and removed ';' in Fortran source lines.
Tested: jam (intel)
Diffstat (limited to 'hl/fortran/test')
-rwxr-xr-xhl/fortran/test/tsttable.f9011
1 files changed, 5 insertions, 6 deletions
diff --git a/hl/fortran/test/tsttable.f90 b/hl/fortran/test/tsttable.f90
index 8191693..66ec5c6 100755
--- a/hl/fortran/test/tsttable.f90
+++ b/hl/fortran/test/tsttable.f90
@@ -39,14 +39,14 @@ SUBROUTINE test_table1()
CHARACTER(len=8), PARAMETER :: filename = "f1tab.h5" ! File name
CHARACTER(LEN=5), PARAMETER :: dsetname1 = "dset1" ! Dataset name
INTEGER(HID_T) :: file_id ! File identifier
- INTEGER(HSIZE_T), PARAMETER :: nfields = 4; ! nfields
- INTEGER(HSIZE_T), PARAMETER :: nrecords = 5; ! nrecords
+ INTEGER(HSIZE_T), PARAMETER :: nfields = 4 ! nfields
+ INTEGER(HSIZE_T), PARAMETER :: nrecords = 5 ! nrecords
CHARACTER(LEN=10),DIMENSION(1:nfields) :: field_names ! field names
INTEGER(SIZE_T), DIMENSION(1:nfields) :: field_offset ! field offset
INTEGER(HID_T), DIMENSION(1:nfields) :: field_types ! field types
INTEGER(HSIZE_T), PARAMETER :: chunk_size = 5 ! chunk size
INTEGER, PARAMETER :: compress = 0 ! compress
- INTEGER :: errcode ! Error flag
+ INTEGER :: errcode = 0 ! Error flag
INTEGER :: i ! general purpose integer
INTEGER(SIZE_T) :: type_size ! Size of the datatype
INTEGER(SIZE_T) :: type_sizec ! Size of the character datatype
@@ -69,8 +69,8 @@ SUBROUTINE test_table1()
CHARACTER(LEN=9), DIMENSION(1:nfields) :: field_namesr ! field names
INTEGER(SIZE_T), DIMENSION(1:nfields) :: field_offsetr ! field offset
INTEGER(SIZE_T), DIMENSION(1:nfields) :: field_sizesr ! field sizes
- INTEGER(SIZE_T) :: type_sizeout ! size of the datatype
- INTEGER :: maxlen ! max chararter length of a field name
+ INTEGER(SIZE_T) :: type_sizeout = 0 ! size of the datatype
+ INTEGER :: maxlen = 0 ! max chararter length of a field name
!
@@ -376,7 +376,6 @@ SUBROUTINE test_table1()
CALL passed()
-
!-------------------------------------------------------------------------
! Get information about fields
!-------------------------------------------------------------------------