summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2006-04-14 21:33:35 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2006-04-14 21:33:35 (GMT)
commit3ee41cba2928a5cf580c267d744ca4a9e1fde689 (patch)
tree62d4d45473d6483091977ec42acdd52aa0bf514f /fortran
parentb1eadf137ca922abd96713ab0befb984228b441e (diff)
downloadhdf5-3ee41cba2928a5cf580c267d744ca4a9e1fde689.zip
hdf5-3ee41cba2928a5cf580c267d744ca4a9e1fde689.tar.gz
hdf5-3ee41cba2928a5cf580c267d744ca4a9e1fde689.tar.bz2
[svn-r12251] Purpose: Maintenance
Description: file_close and multi driver tests fail on VMS. Solution: IFDEF'ed them for now with !DEC directive. Platforms tested: VMS server, heping Misc. update:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/fortranlib_test.f9014
1 files changed, 12 insertions, 2 deletions
diff --git a/fortran/test/fortranlib_test.f90 b/fortran/test/fortranlib_test.f90
index b736edf..0d4c8e6 100644
--- a/fortran/test/fortranlib_test.f90
+++ b/fortran/test/fortranlib_test.f90
@@ -93,6 +93,10 @@
write(*, fmt = '(58x,a)', advance = 'no') ' '
write(*, fmt = e_format) error_string
total_error = total_error + reopen_total_error
+
+!DEC$ if defined(H5_VMS)
+ goto 100
+!DEC$ else
error_string = failure
CALL file_close(cleanup, fclose_total_error)
IF (fclose_total_error == 0) error_string = success
@@ -100,7 +104,8 @@
write(*, fmt = '(49x,a)', advance = 'no') ' '
write(*, fmt = e_format) error_string
total_error = total_error + fclose_total_error
-
+!DEC$ endif
+100 continue
error_string = failure
CALL file_space(cleanup, fspace_total_error)
IF (fspace_total_error == 0) error_string = success
@@ -231,7 +236,10 @@
write(*, fmt = '(48x,a)', advance = 'no') ' '
write(*, fmt = e_format) error_string
total_error = total_error + external_total_error
-
+
+!DEC$ if defined(H5_VMS)
+ goto 200
+!DEC$ else
error_string = failure
cleanup = .FALSE.
CALL multi_file_test(cleanup, multi_file_total_error)
@@ -240,6 +248,8 @@
write(*, fmt = '(47x,a)', advance = 'no') ' '
write(*, fmt = e_format) error_string
total_error = total_error + multi_file_total_error
+!DEC$ endif
+200 continue
! write(*,*)
! write(*,*) '========================================='
! write(*,*) 'Testing ATTRIBUTE interface '