diff options
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(*,*) ' ========================== ' |