diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-17 21:15:23 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-07-17 21:15:23 (GMT) |
| commit | 2edc6a97db51a030de24f37d0a4ca60724c0f8a2 (patch) | |
| tree | 40093bf0e4684437ec78a8bc81de0ff282615a5a | |
| parent | a41f88bc3e53e445e616d8df11f5cf7f7f7a8a47 (diff) | |
| download | hdf5-2edc6a97db51a030de24f37d0a4ca60724c0f8a2.zip hdf5-2edc6a97db51a030de24f37d0a4ca60724c0f8a2.tar.gz hdf5-2edc6a97db51a030de24f37d0a4ca60724c0f8a2.tar.bz2 | |
[svn-r27405] added implicit none
| -rw-r--r-- | fortran/test/H5_test_buildiface.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/H5_test_buildiface.F90 b/fortran/test/H5_test_buildiface.F90 index 9588bf0..30687df 100644 --- a/fortran/test/H5_test_buildiface.F90 +++ b/fortran/test/H5_test_buildiface.F90 @@ -55,7 +55,7 @@ PROGRAM H5_test_buildiface ! These values are valid REAL KINDs (with corresponding C float) found during configure H5_H5CONFIG_F_NUM_RKIND H5_H5CONFIG_F_RKIND -! These values are valid INTEGER KINDs (with corresponding C float) found during configure +! These values are valid INTEGER KINDs (with corresponding C integer) found during configure H5_H5CONFIG_F_NUM_IKIND H5_H5CONFIG_F_IKIND @@ -93,8 +93,6 @@ PROGRAM H5_test_buildiface ' f_ptr = C_LOC(buf(1,1,1,1,1,1,1))' & /) - - ! Generate Fortran Check routines for the tests KIND interfaces. OPEN(11,FILE='tf_gen.F90') @@ -246,6 +244,7 @@ PROGRAM H5_test_buildiface WRITE(11,'(A)') '!DEC$attributes dllexport :: real_eq_kind_'//TRIM(ADJUSTL(chr2)) WRITE(11,'(A)') '!DEC$endif' WRITE(11,'(A)') ' LOGICAL FUNCTION real_eq_kind_'//TRIM(ADJUSTL(chr2))//'(a,b,ulp)' + WRITE(11,'(A)') ' IMPLICIT NONE' WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//'), INTENT (in):: a,b' WRITE(11,'(A)') ' REAL(KIND='//TRIM(ADJUSTL(chr2))//') :: Rel' WRITE(11,'(A)') ' INTEGER, OPTIONAL, INTENT( IN ) :: ulp' @@ -286,6 +285,7 @@ PROGRAM H5_test_buildiface WRITE(11,'(A)') '!DEC$endif' ! Subroutine API WRITE(11,'(A)') ' SUBROUTINE verify_logical(string,value,correct_value,total_error)' + WRITE(11,'(A)') ' IMPLICIT NONE' WRITE(11,'(A)') ' CHARACTER(LEN=*) :: string' WRITE(11,'(A)') ' LOGICAL :: value, correct_value' WRITE(11,'(A)') ' INTEGER :: total_error' |