diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2002-05-31 20:11:54 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2002-05-31 20:11:54 (GMT) |
| commit | ae818ca9df9e12f4ba32e85de2f49ce164a0095f (patch) | |
| tree | e410bfcf872b490298988e2f374ecb83c8b91c1e /fortran/test/fortranlib_test.f90 | |
| parent | 4a3fa29c25e2ad0acef8621e21cbd546c184e269 (diff) | |
| download | hdf5-ae818ca9df9e12f4ba32e85de2f49ce164a0095f.zip hdf5-ae818ca9df9e12f4ba32e85de2f49ce164a0095f.tar.gz hdf5-ae818ca9df9e12f4ba32e85de2f49ce164a0095f.tar.bz2 | |
[svn-r5492]
Purpose:
Code clean up.
Description:
Many F90 compilers were not happy about character*(*) declarations.
Solution:
Used F90 character(len=*) declarations.
Platforms tested:
Solaris 2.7 and Linux 2.4
Diffstat (limited to 'fortran/test/fortranlib_test.f90')
| -rw-r--r-- | fortran/test/fortranlib_test.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90 index 13e96b0..2c5c13a 100644 --- a/fortran/test/fortranlib_test.f90 +++ b/fortran/test/fortranlib_test.f90 @@ -26,10 +26,10 @@ INTEGER :: identifier_total_error = 0 INTEGER :: group_total_error = 0 INTEGER :: error_total_error = 0 - CHARACTER*8 error_string - CHARACTER*8 :: success = ' PASSED ' - CHARACTER*8 :: failure = '*FAILED*' - CHARACTER*4 :: e_format ='(8a)' + CHARACTER(LEN=8) error_string + CHARACTER(LEN=8) :: success = ' PASSED ' + CHARACTER(LEN=8) :: failure = '*FAILED*' + CHARACTER(LEN=4) :: e_format ='(8a)' CALL h5open_f(error) write(*,*) ' ========================== ' |