diff options
Diffstat (limited to 'fortran/test/tf.f90')
| -rw-r--r-- | fortran/test/tf.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/fortran/test/tf.f90 b/fortran/test/tf.f90 index 816bcc5..3a8a3ee 100644 --- a/fortran/test/tf.f90 +++ b/fortran/test/tf.f90 @@ -32,6 +32,16 @@ RETURN END SUBROUTINE check + SUBROUTINE verify(string,value,correct_value,total_error) + CHARACTER(LEN=*) :: string + INTEGER :: value, correct_value, total_error + if (value .ne. correct_value) then + total_error=total_error+1 + write(*,*) string + endif + RETURN + END SUBROUTINE verify + !---------------------------------------------------------------------- ! Name: h5_fixname_f ! |