From 2edc6a97db51a030de24f37d0a4ca60724c0f8a2 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Fri, 17 Jul 2015 16:15:23 -0500 Subject: [svn-r27405] added implicit none --- fortran/test/H5_test_buildiface.F90 | 6 +++--- 1 file 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' -- cgit v0.12