summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-07-17 21:15:23 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-07-17 21:15:23 (GMT)
commit2edc6a97db51a030de24f37d0a4ca60724c0f8a2 (patch)
tree40093bf0e4684437ec78a8bc81de0ff282615a5a
parenta41f88bc3e53e445e616d8df11f5cf7f7f7a8a47 (diff)
downloadhdf5-2edc6a97db51a030de24f37d0a4ca60724c0f8a2.zip
hdf5-2edc6a97db51a030de24f37d0a4ca60724c0f8a2.tar.gz
hdf5-2edc6a97db51a030de24f37d0a4ca60724c0f8a2.tar.bz2
[svn-r27405] added implicit none
-rw-r--r--fortran/test/H5_test_buildiface.F906
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'