summaryrefslogtreecommitdiffstats
BranchCommit messageAuthorAge
adc028c8d0Branch "adc028c8d0" created in error.kjnash7 years
ajuba_ajuba2_2_1_base_syntheticCreated branch ajuba-ajuba2-2-1-base-syntheticcvs2fossil24 years
androwishmerge core-8-6-branch. Some upstream androwish changesjan.nijtmans7 years
apn_win_filedialogsPrevious commit probably broke higher VS versions (>2012) compilation. Fix that.jan.nijtmans10 years
bindScriptCountMerge updates from core-8-5-branch.Joe Mistachkin9 years
bug_011706ec42Fixed [011706ec42] for the scrollbar case.fvogel8 years
bug_011706ec42_without_busy_waitExperiment: can it be done without a busy wait as well? Not tested on all pla...jan.nijtmans8 years
bug_069c9e43c4Fix reference counting for "option" objects, when being duplicated.jan.nijtmans11 years
bug_06c1433906Merged finddline branch.fvogel8 years
bug_1080198fffFixed typofvogel8 years
bug_1082213fffRestored successful tests textDisp-*.*fvogel8 years
bug_1096580fffExplain why replacing soft hyphens by hard hyphens is done only on OS Xfvogel7 years
bug_109865fa01Added test checkbutton-1.7 to guard against regressions regarding [109865fa01]fvogel8 years
bug_1192095Fixed bug [1192095] (issue 2) - Toplevel menus return incorrect active indexfvogel8 years
bug_1217222Added test case text-27.26 for [.text edit undo/redo] return valuesfvogelnew1@free.fr8 years
bug_1247115fffFixed extra spacefvogelnew1@free.fr9 years
bug_1288433fffFixed bug [1288433] - LisboxSelect event triggers when listbox state is disabledfvogel9 years
bug_1292219Propagated UnMap events of a panedwindow to its childrenfvogelnew1@free.fr9 years
bug_1292219fffCompleted test for bug [1292219fff], regarding MapNotify event this timefvogel9 years
bug_1305128fffFixed bug [1305128] - Scrollbar doesn't receive eventfvogel9 years
bug_1414025Fixed bug [1414025] - Thin insertion cursor not visible in entryfvogel9 years
bug_1501749fffFixed bug [1501749fff] - Crash on embedded window deletion bound to <Map> eventfvogel9 years
bug_1510538fffFixed bug [1510538] - Wrong initial scrollbar widthfvogel9 years
bug_1520118fffFixed bug [1520118fff] - -validate resets to nonefvogel9 years
bug_1581435fffFixed bug [1581435fff] - Documented precedence order in the matching process ...fvogel9 years
bug_1581955fffSlightly better formattingfvogel9 years
bug_1630251Bug 1630251: Documentation for -endline option was wrongfvogel12 years
bug_1630254Better fix for bug-1630254fvogel12 years
bug_1630262Bug-3487407: Weird text indicesfvogel12 years
bug_1630271patch-3477449: segfault when mark out of -startline/-endline rangejan.nijtmans13 years
bug_1669632fffFixed bug [1669632fff] cases (ii) and (iii) - Tolerate a shaky hand using the...fvogel9 years
bug_1700065fffUpdated header comments of EntryValueChanged, InsertChars and DeleteChars sin...fvogel9 years
bug_1714535fffDocumented explicitely that geometry requests from mapped slaves (panes) are ...fvogel9 years
bug_1739605fffAdded non-regression test case: textDisp-11.21fvogel9 years
bug_18c08df753End of fix for [18c08df753] - Merged branch bug-2886436fff-option2fvogel8 years
bug_1913750- merge trunkjan.nijtmans12 years
bug_1927212fffFixed test constraintsfvogel9 years
bug_1997299fffAdded visual tests for borders, following bug [1997299fff]fvogel9 years
bug_1e0db2400cFix coding style and a comment.fvogel7 years
bug_2049429fffBring back DEF_TEXT_SPACING[123], since "0" is not exactly equal to NULL (jus...jan.nijtmans9 years
bug_2160206fffAdded new test to check for error triggering when posting a menu of type menubarfvogel9 years
bug_220854fffFixed bug [220854fff] - Trailing tab characters in entry widgets are not disp...fvogel9 years
bug_2262543fffFixed bug [2262543] - Scale widget unexpectedly fires command callbackfvogel8 years
bug_2262711fffFixed bug [2262711fff] - Regexp search fails with Unicode and elidefvogel9 years
bug_22ace0d494merge core-8-6-branchsimonbachmann7 years
bug_2368195fffMore correct error handling when calling paneconfigure with a non existing wi...fvogel9 years
bug_2433781Fix [2433781fff]: Under X11 image/text now will be centered correctly, the ol...gcramer7 years
bug_2443069merge trunkjan.nijtmans12 years
bug_2546087Second draft of fix for 2546087. dgp13 years
bug_280089486eFixed failing (in trunk) text-19.16 - Bug [280089486e]fvogel10 years
bug_280089486e_bisFixed failing text-19.16 - Bug [280089486e]fvogel10 years
bug_2874226Rendering of all join styles is now correct on Windows when the first and las...fvogel7 years
bug_2886436fff_option1Fixed bug [2886436fff] - [.txt delete] deletes before start index - This is o...fvogel9 years
bug_2886436fff_option2Tried to be even clearer.fvogel9 years
bug_28a3c366e6Fix [28a3c366e6]: memory leak in the text widget. Patch contributed anonymouslyfvogel7 years
bug_28a4535fa2'Fixed' font-24.11 and unixfont-5.12 to fail again identically as they fail i...fvogel8 years
bug_28d0b8fb2fFix [28d0b8fb2f]: Delete the property used for X selection conversion before ...fvogel7 years
bug_2912962fffFixed TTK_STATE_USER2 similarly as TTK_STATE_USER1. These bits are set for th...fvogel7 years
bug_2945130fffLeft and right Control and Alt keys are distinguished using the Extended flag...fvogel8 years
bug_2945130fff_shiftSolution for differentiating left and right shift keys.fvogel8 years
bug_297442da29Fixed bug [297442da29] - tk_strictMotif not correctly taken into accountfvogel9 years
bug_2981253fffFixed bug [2981253] - spinbox button frozen in case of repeated depressionsfvogel8 years
bug_2a70627a03Suggested fix for [2a70627a03]: shobjidl.h include in tkWinDialog.c breaks mi...jan.nijtmans9 years
bug_2cf3d6942cImproved further test button-5.24: the test no longer depends on default valu...fvogel8 years
bug_2cf3d6942c_mistakeFixed [2cf3d6942c] - Test button-5.24 fails. First, use {Helvetica -12} as fo...fvogel8 years
bug_2f78c7c5eaBetter comment about the fix, since the issue is now fully understood.fvogel9 years
bug_3021557bug-3021557 Moving the cursor in elided text freezes Tkjan.nijtmans13 years
bug_3062331Add comments explaining new code.dgp13 years
bug_308940fffRevert the previous commit since it has drawbacks (see [6020ee2d03]).fvogel7 years
bug_3102228fffFixed bug [3102228] - <<ListboxSelect>> doesn't fire when selection lostfvogel9 years
bug_3137232fffFixed bug [3137232] - spinbox error after destroying toplevel from widgetfvogel8 years
bug_3216070merge core-8-5-branchjan.nijtmans13 years
bug_3217462'xpnative' and 'vista' (and 'aqua') themes: 'alternate on' changed to be iden...fvogel8 years
bug_3295446Fix [3295446]: Make the insertion cursor always visible when browsing console...fvogel7 years
bug_3404541fix ttk::labeljan.nijtmans13 years
bug_3406785Fix [3406785]: Incorrect coords rounding, pixel jump in drawing canvas itemsfvogel7 years
bug_3410609Tentative fix for bug 3410609 - use the keysym returned by XLookupString in p...Kevin B Kenny13 years
bug_3417012fffTest for 3417012dgp10 years
bug_3475627applied patch-3476698jan.nijtmans13 years
bug_3486474improved, faster implementations of XParseColor and TkParseColorjan.nijtmans12 years
bug_3508771merge core-8-4-branchjan.nijtmans12 years
bug_3511806implementation ready for further field-testsjan.nijtmans12 years
bug_3512539fffFix for [3512539fff] removed, by popular demandfvogel8 years
bug_3512824merge trunkjan.nijtmans12 years
bug_3529885fffAdded test case for bug [3529885fff]fvogel10 years
bug_3545457[Bug 3545457]: Crash on packing a menubuttonfvogel12 years
bug_3554052fffFixed bug [3554052fff] by applying [b28d8aaa7c] to core-8-5-branchfvogel9 years
bug_3554273Fixed [Bug 3554273]: Test textDisp-32.2 failedfvogel12 years
bug_3555644new virtual event <<ToggleSelection>>jan.nijtmans12 years
bug_3566106post-review, believed minimaldkf12 years
bug_35677793567779 Fumbling attempt to make winWm.test stop segfaulting and start passingdgp12 years
bug_3567786Updated branch now stops all segfaults and panics in the test suite.dgp12 years
bug_3582795rebasejan.nijtmans11 years
bug_3585396merge-markjan.nijtmans12 years
bug_3588460fffRevert unintentional removal of ::tk_getFileType that happened in [374cb204]fvogel8 years
bug_3588824Added tests for weird embedded windows namesfvogel12 years
bug_3592454fffComplementary fix for bug [3592454fff] - Don't identify the sash associated t...fvogel9 years
bug_3592736possible fix for bug 3592736 (with some formatting improvements from dkf)jan.nijtmans12 years
bug_3599312The proposed fix from Bug 3599312, which should make key map handling interactdkf12 years
bug_3600390See bug 3600390jan.nijtmans12 years
bug_3601604fffFixed bug [3601604fff] - [listbox $path -takefocus 0] steals focusfvogel9 years
bug_3602901fffFactorized documentation of -padding as much as possible, and clarified docum...fvogel7 years
bug_3604346Suggested fix for [3604346]: Checkin [a7eee0499a] broke Ttk docs.jan.nijtmans11 years
bug_3607248Proposed patch by kjnash. Committed in [1f184c7377]jan.nijtmans11 years
bug_3607250Possible (partial) fix for [Bug 3607250]jan.nijtmans11 years
bug_3607830Merge 8.5. Bring together the compile time and run time Xkb checks.dgp11 years
bug_3608074Add documentation for <<EnteredChild>>, <<Invoke>>, <<Increment>> and <<Decre...jan.nijtmans11 years
bug_3613668Enable XInitThreads on some platforms where it might be safe.jan.nijtmans11 years
bug_3613759Suggested fix for [3613759]: ttk::entry and symbolic index namesjan.nijtmans11 years
bug_382da038c9Stop panic (Bad tag priority being toggled on) - Bug [382da038c9]fvogel9 years
bug_38dc27bd1d0ecd68Fix test-case bind-27.2 on X11 (it worked on win32)jan.nijtmans8 years
bug_3df559ef7cReverted [7ed6460f] since it fixes an issue unrelated to the bug presented in...fvogel8 years
bug_3e3e25f483Fixed bug [3e3e25f483] - winbutton-1.[12] fails on Win7fvogel9 years
bug_3ee76e41c2Remove superfluous lines (the default font of the text widget is already save...fvogel8 years
bug_3f1f79abcfAdded test case for bug [3f1f79abcf]fvogel9 years
bug_3f323bf2b4Fix [3f323bf2b4]: wm protocol crash on OSX compiled with XCode 8.3.1. Patch f...fvogel7 years
bug_434d294dfSlightly use of more "int" in stead of double, for 100% compatibility at scri...jan.nijtmans7 years
bug_450bb0ecadmerge 8.6dgp8 years
bug_453518fffFixed bug [453518] - Windows 16-bit color green mask is wrongfvogel9 years
bug_487861ffffFixed bug [487861ffff] - cascade with -accelerator looks wrongfvogel8 years
bug_4955f5d8a4merge trunkjan.nijtmans10 years
bug_4966cad4d4merge trunkfvogel7 years
bug_4cb3dab4ebFixed typosfvogel8 years
bug_514ff64dd0Fix [514ff64dd0]: canvas rotated text overlap detection not workingfvogel7 years
bug_5239fd749bFix [5239fd749b]: Segfault when copying a photo image to itself. Patch from S...fvogel7 years
bug_533519merge trunkjan.nijtmans12 years
bug_533519_altalternative bug fix, keeping coordinates relative to the screenjan.nijtmans12 years
bug_542199fffFixed entry part of bug [542199fff] - Double click on a lone character in an ...fvogel9 years
bug_545f10fcf3Fixed [545f10fcf3] - Poor Xft coloured font performance on X11. Thanks to Jam...fvogel8 years
bug_55b95f578aAdd test for [55b95f578a]: Associating variable with bignum value with scale ...fvogel7 years
bug_562118ce41Added test for bug [562118ce41]fvogel9 years
bug_5660d11c3fAdded missing spacefvogel8 years
bug_62c5b7a1d7Added test text-8.27 for non-regression against the crash [62c5b7a1d7]fvogel7 years
bug_62f1343ad2Attempt to fix [62f1343ad2fd9c77d1f3bf4c9e244e6f33787172|62f1343ad2]: Tk text...jan.nijtmans7 years
bug_6976e4b3b2Cherrypicked [c8256e859a] - Fix from pspjuth to restore the default false val...fvogel8 years
bug_6aea69fccbFixed [6aea69fccb] - grid configure -in problem. Patch by Koen Danckaert.fvogel8 years
bug_720879afe9First attempt at bug-fix for [720879afe9]. Doesn't work yet (characters 'x' a...jan.nijtmans8 years
bug_720879afe9_altNew attempt to fix [720879afe9] - WM_CHAR message handling. Patch from Christ...fvogel8 years
bug_73ba07efcdmerge core-8-6-branchfvogel7 years
bug_7703f947aaFixed textDisp-4.1 and -4.2 - The expected test results were not relevant wit...fvogel10 years
bug_77527326e5Fix [77527326e5]: ttk artifacts on Ubuntu. Patch from Csaba Nemethi.fvogel7 years
bug_793909fffFixed bug [793909] - Problem with nonexistent namespacesfvogel9 years
bug_79549a9134A mouse button once pressed should be released. Doing otherwise messes up wit...fvogel8 years
bug_7a838c38a1Better comment explaining why some events are ignored.fvogel8 years
bug_7c7e8f957eAdd missing .RE in canvas.nfvogel7 years
bug_7d967c68Proposed fix for [7d967c68a09e07e355358af40f36dd5dd84c7022|7d967c68]: Tk appl...jan.nijtmans8 years
bug_810c43d789Fixed failing textDisp-19.11.20 and textDisp-19.11.23 [810c43d789]fvogel10 years
bug_8277e1a906Fix the proposed patch since it had unexpected jumping effects in the fonts l...fvogel7 years
bug_841280ffffFixed bug [841280] - spinbox -from and -to defaults and behaviourfvogel8 years
bug_857686bb3dFixed remaining issue with textDisp-29.2.4fvogel10 years
bug_89a638af38Fix [89a638af38]: OS X - textDisp-15.8 failsfvogel8 years
bug_8c4216dca9Fixed [8c4216dca9] - listbox-4.1 unreliably fails on Debian 8fvogel8 years
bug_92e028b41bFix [92e028b41b] and [c5eb909f86]: Theme changes to xpnative after switching ...fvogel7 years
bug_960391ffffPatch [960391] from Erik Leunissen (rebased to latest trunk) to improve listb...fvogel9 years
bug_99b84e49ff_8_5Reverse previous commit for alpha channel data in image because of newly disc...Kevin Walzer10 years
bug_99b84e49ff_trunkReverse previous commit for alpha channel data in image because of newly disc...Kevin Walzer10 years
bug_9e487e9f15Ticket [9e487e9f15]: Fix for tkWinButton to avoid problems in pluginjan.nijtmans10 years
bug_9fcc519a7cminor formattingjan.nijtmans9 years
bug_a2abc45ee6Fixed [a2abc45ee6] - Cursor at wrong position after event generate -warp on s...fvogel8 years
bug_a5ba1c9764Fix [a5ba1c9764]: Race condition in clipboard cleanup on Windows. Patch from ...fvogel7 years
bug_adc028c8d0Add "break" to "bind Menu <KeyPress>" in library/menu.tcl. Fixes bug adc028c...kjnash7 years
bug_ae32eb7e10Remove superfluous 'textfonts' constraint in textDisp-20.1,2,3,4,5fvogel7 years
bug_b362182e45Added test text-11a.51 to check the fix of [b362182e45]fvogel8 years
bug_b601ce3ab1Fix [cc42cc18a5]: Prevent the test suite from crashing when running tests img...fvogel7 years
bug_bb6b4032d2Fix [bb6b4032d2]: ::tk::AmpMenuArgs does not work with 'entryconf'fvogel7 years
bug_bc43fd20cfFix [bc43fd20cf]: paneconfigure not working as expectedfvogel7 years
bug_c0dbdd3ff3Make tests pass again after fixing [c0dbdd3ff3]: Tk Compatibility Fonts block...fvogel7 years
bug_c12af74765Better fix for [c12af74765]: OS X - text-21.1 failsfvogel8 years
bug_c199ef90a6Fixed wrong index returned by @x,y with elided lines at end of text - Bug [c1...fvogel10 years
bug_c24b97d905Added tests for bug [c24b97d905] - text count -displaylines is wrong with eli...fvogel10 years
bug_c492c96aa2Group multiple [style map TCombobox] statements into a single instructionfvogel7 years
bug_c95d4691ffFixed [c95d4691ff] - winfo screenheight w/dual monitors returns the screen he...fvogelnew1@free.fr8 years
bug_c95d4691ff_mistakeFixed [c95d4691ff] - winfo screenheight w/dual monitors returns the screen he...fvogel8 years
bug_cbab0f88d7Attempt to fix [cbab0f88d7]: textDisp-19.17 and textDisp-19.18 failfvogel7 years
bug_d0c55bd78aFix [d0c55bd78a]: inaccurate documentation for continue/break/ok in binding s...fvogel7 years
bug_d4fb4e80d2Merge core-8-6-branch so that new test imgPhoto-4.74 lands in the present bug...fvogel8 years
bug_d4fb4e80d2_altAlternative proposed solution for [d4fb4e80d220e46e588f310291fd7a4205e8cd67|d...jan.nijtmans8 years
bug_d6b95ce4grid: shrink frame when last child is ungridded. Ticket [d6b95ce4]harald.oehlmann@elmicron.de8 years
bug_d6b95ce492_altPatch by Koen in Ticket [d6b95ce4]: no check for ALLOCED_MASTER, second place...harald.oehlmann@elmicron.de8 years
bug_d6fd19e4e5Fix [d6fd19e4e5]: Documentation of ttk::notebook 'tabs' widget command clarif...fvogel7 years
bug_d7bad57c43Limit sash proxy maximum coordinates to the size of the panedwindow it belong...fvogel9 years
bug_d95e5d8f16Added non regression test case for bug [d95e5d8f16]fvogel8 years
bug_d9fdfa435dmerge core-8-6-branchfvogel7 years
bug_dac92f194cFix [dac92f194c]: OS X - text-2.8 and text-2.9 are both run and failfvogel8 years
bug_dd9667635dUse interp bgerror instead of old proc bgerror.fvogel7 years
bug_de156e9efeDocument changes in doc/selection.nkjnash7 years
bug_e36963bfe8Added test event-8 to test the fix for for [e36963bfe8]fvogel8 years
bug_e4336bef5dFix [e4336bef5d] (Unexpected result when copying a photo image to itself): if...simonbachmann7 years
bug_e4ed00a954Fixed crash with display wordstart - Bug [e4ed00a954]fvogel9 years
bug_e8a111970aFixed [e8a111970a] - Misleading documentation for menu accelerator optionfvogel8 years
bug_e9112ef96eAdded test case wm-forget-2 related to test the fix for bug [e9112ef96e]fvogel8 years
bug_eb26817783Fixed [eb26817783] - listbox-13.3 fails on Linuxfvogel8 years
bug_ed22529c92Fix [ed22529c92]: Spinbox validation is turned off when validate function ret...fvogel8 years
bug_ee40fd1fceFix [ee40fd1fce]: Report possible error message from the consoleInterp to int...fvogel7 years
bug_f0188aca9eThe typo introduced in [c483179b] does not help in running the tests in color...fvogel7 years
bug_f1a3ca09d2Fix [f1a3ca09d2]: Memory leak in generic/tkTextBTree.c. Patch from 'edhume3'.fvogel7 years
bug_f214b8Since fontCache is the first field of struct TkFontInfo, make the code somewh...jan.nijtmans11 years
bug_f214b8ad5bmerge trunkjan.nijtmans11 years
bug_f2655bb0ecFixed [f2655bb0ec] - bind-15.23 fails if the mouse is inside the test windowfvogel8 years
bug_f60c54bec6Fix [86a7468862]. Make test combobox-3 pass (hopefully) on all platforms.fvogel8 years
bug_fa32290898Constrained test menu-38.1 to Unix or Mac platforms since this test hangs on ...fvogel8 years
bug_fab5fed65eRemove obsolete comments. The line they comment was kicked out of the code in...fvogel8 years
bug_fd3a4dc111Fixed [fd3a4dc111] - <<Modified>> event is not always sent to peersfvogel8 years
bug_ff8a1e55a2Better patch for bug [ff8a1e55a2] - Filling a never-mapped text widget is CPU...fvogel9 years
cocoa_full_merge_review_8_5Added two missing header files from the cococa backport branch.andreask12 years
contrib_patrick_fradin_code_cleanupContribution by Patrick Fradin <patrick.fradin@planar.com>andreask12 years
core_8_0_2_syntheticCreated branch core-8-0-2-syntheticcvs2fossil26 years
core_8_0_5_branchupdate release date for 8.0.5 stanton25 years
core_8_0_6_branchCreating branch core-8-0-6-branchcvs25 years
core_8_1_0_branchupdated version number to 8.1.1 stanton25 years
core_8_1_0_syntheticCreated branch core-8-1-0-syntheticcvs2fossil25 years
core_8_1_a2_syntheticCreated branch core-8-1-a2-syntheticcvs2fossil26 years
core_8_1_b1_syntheticCreated branch core-8-1-b1-syntheticcvs2fossil26 years
core_8_1_b2_syntheticCreated branch core-8-1-b2-syntheticcvs2fossil25 years
core_8_1_b3_syntheticCreated branch core-8-1-b3-syntheticcvs2fossil25 years
core_8_1_branch_oldFix deadlock situtation in generic/tkWindow.c when Initialize() doesn't redman25 years
core_8_2_1_branchadded warning when specifying --enable-threads to Tk hobbs25 years
core_8_2_b3_branchInclude the unix/aclocal.m4 file with the distribution. redman25 years
core_8_3_1_branchFix sh quoting error reported in bash-3.1+ [Bug 1377619] (schafer) nijtmans14 years
core_8_4_20_rcTag for release.dgp11 years
core_8_4_9_branchUpdated chengyemao19 years
core_8_4_branchmerge releasedgp11 years
core_8_4_win_speedupupdate to head hobbs22 years
core_8_5_10_rcmerge to RCdgp13 years
core_8_5_11_rcmerge, tag & bag another 8.5.11 RCdgp13 years
core_8_5_12_rcmerge 8.5dgp12 years
core_8_5_13_rcChangeLog release markdgp12 years
core_8_5_14rcUpdate changes. Tag RC1.dgp11 years
core_8_5_15_rcmerge 8.5; update changesdgp11 years
core_8_5_16_rcstamp release datedgp10 years
core_8_5_17_rcmerge 8.5dgp10 years
core_8_5_18_rcupdate release datedgp9 years
core_8_5_19_rcmerge 8.5dgp8 years
core_8_5_a5_syntheticCreated branch core-8-5-a5-syntheticcvs2fossil18 years
core_8_5_branchFix [cc42cc18a5]: Prevent the test suite from crashing when running tests img...fvogel7 years
core_8_6_0_rcmerge trunkdgp12 years
core_8_6_1_rcmerge trunk; update changesdgp11 years
core_8_6_2_rcmerge trunkdgp10 years
core_8_6_3_rcupdate READMEdgp10 years
core_8_6_4_rcmerge trunkdgp9 years
core_8_6_5_rcPut [wm forget] fix in the 8.6.5 release.dgp8 years
core_8_6_6_rcmerge 8.6dgp8 years
core_8_6_7_rcmerge 8.6; update changesdgp7 years
core_8_6_b2_rcrelease tagdgp13 years
core_8_6_b3_rcTag for 8.6b3 release.dgp12 years
core_8_6_branchRemove all references to coffbase.txt (which will be removed from Tcl) and wi...jan.nijtmans7 years
core_8_7_a1_rcmerge trunkdgp7 years
core_stabilizer_branchmerge updates from core-8-5-branch dgp16 years
core_stabilizer_merge_syntheticCreated branch core-stabilizer-merge-syntheticcvs2fossil16 years
core_zip_vfsPulling changes from trunkhypnotoad8 years
dev_8_1_stubs_branchmerge 8.0.6 code for stubs into 8.1 for UNIX redman25 years
dev_stubs_branchFixed makefile and configure script to properly build wish on Unix. redman25 years
dgp_Tcl_requirementRevise trunk to an explicit requirement on Tcl 8.6.0 so that Tcl 8.6 interpsdgp8 years
dgp_backportcocoaforgetWork in progress attempting to backport Cocoa implementations of [wm manage] anddgp12 years
dgp_modernize_initFixup the typecastingdgp8 years
dgp_privates_into_namespace * Corrections to merge from HEAD dgp23 years
dgp_reviewSomewhat more benefit from TCL_GLOBAL_ONLYjan.nijtmans11 years
dgp_support_tcl_8_6_buildmore mergingdgp11 years
editorconfigAdded EditorConfig support (experimental)fvogel8 years
finddlineWith the real fix in FindDLine ([717e12ee]) there is no need anymore of the e...fvogel8 years
frq_3536507frq-3536507: clientData field in Tk_OptionSpec should be "const void *"jan.nijtmans12 years
frq_3555324merge trunkjan.nijtmans12 years
hithemeScrolling is now working at an acceptable level; using Unix bindings to drive...Kevin Walzer9 years
initsubsystems2Demonstrate how the Tk_Main() macro can use Tcl_InitSubsystems(), as fully eq...jan.nijtmans11 years
irontclAlways define '_USING_V110_SDK71_', in case targeting the pre-Windows 8.x SDKs.Joe Mistachkin7 years
jn_cocoa_full_merge_8_5full merge of cocoa experiment, ready to be merged to core-8-5-branch and fro...jan.nijtmans12 years
jn_web_colorsmerge trunkjan.nijtmans12 years
littleMerge 8.6.5 release.dgp8 years
macosx_8_4_branchadded macosx-8-4-branch ChangeLog entries das22 years
macosx_button_segfaultApply a similar dealloc fix to menubuttonhypnotoad10 years
mastermerge core-8-6-branchjan.nijtmans7 years
mistachkin_dev_branchCreating branch mistachkin-dev-branchcvs21 years
mistakeFix [28d0b8fb2f]: Delete the property used for X selection conversion before ...fvogel7 years
mistake__off_trunkFixes for menu and wm fullscreen bugs; thanks to Adrian Robert for patchesKevin Walzer12 years
multiscreensMerged core-8-6-branchfvogel8 years
multiscreens_exp1(Experimental) Removed screen dependency of TkBordersfvogel8 years
new_iconsExperiment, just to have a look how the new icon could look like.jan.nijtmans9 years
novem_supportmerge trunkjan.nijtmans7 years
novem_support_85more minor tweaks, getting it to run with Tcl 9.0 when compiled against 8.5 o...jan.nijtmans12 years
option_readfileDocument that [encoding system] has no effect on option readfilejan.nijtmans8 years
patch_3471873[Bug-3288113,3288121]: Missing marks/endless loop in text mark prev/nextjan.nijtmans13 years
patch_3479498[Bug-1754043] and [Bug-2321450]: When -blockcursor is true, the cursor appear...fvogel13 years
pspjuth_canvasmerge trunkpspjuth12 years
pspjuth_touchmerge trunkjan.nijtmans8 years
revised_textMerge trunkfvogel7 years
revised_text_oberForgot to add generic/mystdint.h when committing Paul's patch (my bad, sorry).fvogel7 years
rfe_22ace0d494Adapt detection for whethere there is alpha or not on Postscript generation t...jan.nijtmans7 years
rfe_2636558improving backwards compatibilityjan.nijtmans12 years
rfe_2863003fff(Modernized) patch from egavilan to fix [2863003fff] and [d6b95ce492] - tk fr...fvogel8 years
rfe_3503317test output in Xorg rgb.txt formatjan.nijtmans12 years
rfe_38dc27bdMore test-cases for Button 6-9 handlingjan.nijtmans8 years
rfe_3f456a5bb9[3f456a5bb9]: Patches for listbox right justifyjan.nijtmans10 years
rfe_499526180dAdd comment explaining that ks_names.h should be kept in sync with keysymdef....fvogelnew1@free.fr7 years
rfe_6c0d7aec67merge core-8-6-branchjan.nijtmans7 years
rfe_e9a842a3c5Arjen Marcus' patch, with minor edits in the ParseProc and PrintProc (making ...jan.nijtmans11 years
scriptics_sc_1_0_branchCreating branch scriptics-sc-1-0-branchcvs25 years
scriptics_sc_1_1_branchCreating branch scriptics-sc-1-1-branchcvs25 years
scriptics_tclpro_1_3_b2_branchfixed incorrect patchlevel info stanton25 years
scrollbar_obj_cmdSome more places where Tcl_Obj's can be usedjan.nijtmans10 years
send_obj_cmdmake test-case send-8.15 pass (is this the right way?)jan.nijtmans10 years
tagoptions-lmargincolor tag configuration option: implementation slightly optimized sin...fvogelnew1@free.fr8 years
tclpro_1_4_0_syntheticCreated branch tclpro-1-4-0-syntheticcvs2fossil24 years
tclpro_1_4_1_syntheticCreated branch tclpro-1-4-1-syntheticcvs2fossil24 years
tclpro_1_5_0_syntheticCreated branch tclpro-1-5-0-syntheticcvs2fossil24 years
text_elidedMerged branch bug-c199ef90a6 - This is a no-op, this commit from this branch ...fvogel9 years
tip_166Fix order of tests in tkImgListFormat.c. This was discovered when analyzing [...fvogel7 years
tip_382 add docsdgp13 years
tip_389More simplificationsnijtmans@users.sourceforge.net8 years
tip_415merge trunkjan.nijtmans8 years
tip_437merge core-8-5-branch. jan.nijtmans9 years
tip_438rebase "tip-438" branch to latest trunk.jan.nijtmans9 years
tip_438_bettercodeFix test-cases textDisp-33.2 and textDisp-33.3jan.nijtmans9 years
tip_438_eventsImplementation of TIP #438 - Solution using virtual eventsfvogel9 years
tip_441Removed unfinished test case committed by error in the previous commit.fvogel9 years
tip_442merge trunkfvogel7 years
tip_443Rebased to core-8-6-branchfvogel8 years
tip_446Took comments from Koen Danckaert into account (with my thanks) to simplify t...fvogel8 years
tip_446_canundoAligned GenerateModifiedEvent() on GenerateUndoStackEvent() regarding generat...fvogel8 years
tip_446_experimentalUse TkHandleEventGenerate rather than directly fiddling with the event struct...fvogel8 years
tip_446_undodepthMerged core-8-6-branchfvogel8 years
tip_449Rebased to trunk since TIP #449 was accepted for merging to trunk only, not t...fvogel8 years
tip_454frame resize tests exercice all paths of pack and grid, removed tests for dif...oehhar8 years
tip_464merge core-8-6-branchfvogel7 years
tk_cocoa_8_5_backportmerge core-8-5-branchjan.nijtmans12 years
tk_errorcodesmerge trunkdkf12 years
tk_stu_pkgMerge trunk.stu7 years
tobetestedmerge core-8-4-branch, still to be tested on Unixjan.nijtmans12 years
ttk_range_widgetttk::range widget implementation, contributed by Goodwin Lawlor [SF#3391905]jenglish13 years
vc_reformNeed netapi.lib for static buildsapnadkarni7 years
win32_armFix one missed makefile comment change.Joe Mistachkin11 years
winFixesPermit static linking to the MSVCRT as a stand-alone option. Enable WinXP SD...Joe Mistachkin8 years
z_modifierCompanion to Tcl's [https://core.tcl.tk/tcl/timeline?r=z_modifier|z_modifier]...jan.nijtmans7 years
 
TagDownloadAuthorAge
core-bug-0439e1e1a3core-bug-0439e1e1a3.zip  core-bug-0439e1e1a3.tar.gz  core-bug-0439e1e1a3.tar.bz2  jan.nijtmans2 weeks
core-tip-698core-tip-698.zip  core-tip-698.tar.gz  core-tip-698.tar.bz2  jan.nijtmans5 weeks
core-bug-4d0a6f32b7core-bug-4d0a6f32b7.zip  core-bug-4d0a6f32b7.tar.gz  core-bug-4d0a6f32b7.tar.bz2  jan.nijtmans6 weeks
core-bug-8162e9b7a9-with-csaba-magiccore-bug-8162e9b7a9-with-csaba-magic.zip  core-bug-8162e9b7a9-with-csaba-magic.tar.gz  core-bug-8162e9b7a9-with-csaba-magic.tar.bz2  jan.nijtmans2 months
core-bug-8162e9b7a9core-bug-8162e9b7a9.zip  core-bug-8162e9b7a9.tar.gz  core-bug-8162e9b7a9.tar.bz2  fvogel2 months
core-bug-527cb3cd5dcore-bug-527cb3cd5d.zip  core-bug-527cb3cd5d.tar.gz  core-bug-527cb3cd5d.tar.bz2  jan.nijtmans2 months
core-9-0-b2core-9-0-b2.zip  core-9-0-b2.tar.gz  core-9-0-b2.tar.bz2  dgp2 months
core-bug-53fdb87e49core-bug-53fdb87e49.zip  core-bug-53fdb87e49.tar.gz  core-bug-53fdb87e49.tar.bz2  jan.nijtmans4 months
core-8-6-14core-8-6-14.zip  core-8-6-14.tar.gz  core-8-6-14.tar.bz2  dgp5 months
core-bug-026e2bb685core-bug-026e2bb685.zip  core-bug-026e2bb685.tar.gz  core-bug-026e2bb685.tar.bz2  jan.nijtmans6 months
core-bug-026e2bb685-altcore-bug-026e2bb685-alt.zip  core-bug-026e2bb685-alt.tar.gz  core-bug-026e2bb685-alt.tar.bz2  jan.nijtmans6 months
core-9-0-b1core-9-0-b1.zip  core-9-0-b1.tar.gz  core-9-0-b1.tar.bz2  dgp7 months
core-9-0-b1-rc4core-9-0-b1-rc4.zip  core-9-0-b1-rc4.tar.gz  core-9-0-b1-rc4.tar.bz2  dgp7 months
core-bug-ec6f07231ccore-bug-ec6f07231c.zip  core-bug-ec6f07231c.tar.gz  core-bug-ec6f07231c.tar.bz2  jan.nijtmans12 months
core-bug-48079fad72core-bug-48079fad72.zip  core-bug-48079fad72.tar.gz  core-bug-48079fad72.tar.bz2  jan.nijtmans12 months
bug-2ed289cae0bug-2ed289cae0.zip  bug-2ed289cae0.tar.gz  bug-2ed289cae0.tar.bz2  fvogel16 months
core-8-6-13core-8-6-13.zip  core-8-6-13.tar.gz  core-8-6-13.tar.bz2  dgp20 months
bug-b1d115fa60bug-b1d115fa60.zip  bug-b1d115fa60.tar.gz  bug-b1d115fa60.tar.bz2  fvogel3 years
bug-46c2f088a2bug-46c2f088a2.zip  bug-46c2f088a2.tar.gz  bug-46c2f088a2.tar.bz2  fvogel3 years
core-8-6-12core-8-6-12.zip  core-8-6-12.tar.gz  core-8-6-12.tar.bz2  culler3 years
core-8-7-a5core-8-7-a5.zip  core-8-7-a5.tar.gz  core-8-7-a5.tar.bz2  dgp3 years
bug-9b6065d1fdbug-9b6065d1fd.zip  bug-9b6065d1fd.tar.gz  bug-9b6065d1fd.tar.bz2  griffin3 years
core-8-6-11-1core-8-6-11-1.zip  core-8-6-11-1.tar.gz  core-8-6-11-1.tar.bz2  jan.nijtmans4 years
core-8-6-11core-8-6-11.zip  core-8-6-11.tar.gz  core-8-6-11.tar.bz2  dgp4 years
core-8-7-a3core-8-7-a3.zip  core-8-7-a3.tar.gz  core-8-7-a3.tar.bz2  dgp5 years
core-8-6-10core-8-6-10.zip  core-8-6-10.tar.gz  core-8-6-10.tar.bz2  dgp5 years
core-8-6-9-1core-8-6-9-1.zip  core-8-6-9-1.tar.gz  core-8-6-9-1.tar.bz2  dgp6 years
core-8-6-9core-8-6-9.zip  core-8-6-9.tar.gz  core-8-6-9.tar.bz2  dgp6 years
core-8-6-8core-8-6-8.zip  core-8-6-8.tar.gz  core-8-6-8.tar.bz2  dgp7 years
bug-164c1b1091bug-164c1b1091.zip  bug-164c1b1091.tar.gz  bug-164c1b1091.tar.bz2  culler7 years
bug_92e614e612bug_92e614e612.zip  bug_92e614e612.tar.gz  bug_92e614e612.tar.bz2  7 years
bug_fab5fed65ebug_fab5fed65e.zip  bug_fab5fed65e.tar.gz  bug_fab5fed65e.tar.bz2  7 years
bug-fab5fed65ebug-fab5fed65e.zip  bug-fab5fed65e.tar.gz  bug-fab5fed65e.tar.bz2  fvogel7 years
releaserelease.zip  release.tar.gz  release.tar.bz2  7 years
core_8_7_a1core_8_7_a1.zip  core_8_7_a1.tar.gz  core_8_7_a1.tar.bz2  7 years
rc0rc0.zip  rc0.tar.gz  rc0.tar.bz2  7 years
core-8-7-a1core-8-7-a1.zip  core-8-7-a1.tar.gz  core-8-7-a1.tar.bz2  dgp7 years
core_8_6_7core_8_6_7.zip  core_8_6_7.tar.gz  core_8_6_7.tar.bz2  7 years
core-8-6-7core-8-6-7.zip  core-8-6-7.tar.gz  core-8-6-7.tar.bz2  dgp7 years
rc1rc1.zip  rc1.tar.gz  rc1.tar.bz2  7 years
minor_changeminor_change.zip  minor_change.tar.gz  minor_change.tar.bz2  7 years
bug_e36963bfe8bug_e36963bfe8.zip  bug_e36963bfe8.tar.gz  bug_e36963bfe8.tar.bz2  8 years
bug-e36963bfe8bug-e36963bfe8.zip  bug-e36963bfe8.tar.gz  bug-e36963bfe8.tar.bz2  jan.nijtmans8 years
bug_d6b95ce492_altbug_d6b95ce492_alt.zip  bug_d6b95ce492_alt.tar.gz  bug_d6b95ce492_alt.tar.bz2  8 years
bug_d6b95ce492bug_d6b95ce492.zip  bug_d6b95ce492.tar.gz  bug_d6b95ce492.tar.bz2  8 years
bug-d6b95ce492-altbug-d6b95ce492-alt.zip  bug-d6b95ce492-alt.tar.gz  bug-d6b95ce492-alt.tar.bz2  oehhar8 years
d6b95ce492d6b95ce492.zip  d6b95ce492.tar.gz  d6b95ce492.tar.bz2  8 years
bug-d6b95ce492bug-d6b95ce492.zip  bug-d6b95ce492.tar.gz  bug-d6b95ce492.tar.bz2  fvogel8 years
tip_443tip_443.zip  tip_443.tar.gz  tip_443.tar.bz2  8 years
tip-443tip-443.zip  tip-443.tar.gz  tip-443.tar.bz2  fvogel8 years
core_8_6_6core_8_6_6.zip  core_8_6_6.tar.gz  core_8_6_6.tar.bz2  8 years
rc2rc2.zip  rc2.tar.gz  rc2.tar.bz2  8 years
core-8-6-6core-8-6-6.zip  core-8-6-6.tar.gz  core-8-6-6.tar.bz2  dgp8 years
bug_fa8de779361f5ec2bug_fa8de779361f5ec2.zip  bug_fa8de779361f5ec2.tar.gz  bug_fa8de779361f5ec2.tar.bz2  8 years
bug-fa8de779361f5ec2bug-fa8de779361f5ec2.zip  bug-fa8de779361f5ec2.tar.gz  bug-fa8de779361f5ec2.tar.bz2  jan.nijtmans8 years
mistakemistake.zip  mistake.tar.gz  mistake.tar.bz2  8 years
core_8_6_5core_8_6_5.zip  core_8_6_5.tar.gz  core_8_6_5.tar.bz2  8 years
core-8-6-5core-8-6-5.zip  core-8-6-5.tar.gz  core-8-6-5.tar.bz2  dgp8 years
core_8_5_19core_8_5_19.zip  core_8_5_19.tar.gz  core_8_5_19.tar.bz2  8 years
core-8-5-19core-8-5-19.zip  core-8-5-19.tar.gz  core-8-5-19.tar.bz2  dgp8 years
core_8_6_4core_8_6_4.zip  core_8_6_4.tar.gz  core_8_6_4.tar.bz2  9 years
core-8-6-4core-8-6-4.zip  core-8-6-4.tar.gz  core-8-6-4.tar.bz2  dgp9 years
core_8_5_18core_8_5_18.zip  core_8_5_18.tar.gz  core_8_5_18.tar.bz2  9 years
core-8-5-18core-8-5-18.zip  core-8-5-18.tar.gz  core-8-5-18.tar.bz2  dgp9 years
core_8_6_3core_8_6_3.zip  core_8_6_3.tar.gz  core_8_6_3.tar.bz2  10 years
core-8-6-3core-8-6-3.zip  core-8-6-3.tar.gz  core-8-6-3.tar.bz2  dgp10 years
core_8_5_17core_8_5_17.zip  core_8_5_17.tar.gz  core_8_5_17.tar.bz2  10 years
core-8-5-17core-8-5-17.zip  core-8-5-17.tar.gz  core-8-5-17.tar.bz2  dgp10 years
rc4rc4.zip  rc4.tar.gz  rc4.tar.bz2  10 years
core_8_6_2core_8_6_2.zip  core_8_6_2.tar.gz  core_8_6_2.tar.bz2  10 years
core-8-6-2core-8-6-2.zip  core-8-6-2.tar.gz  core-8-6-2.tar.bz2  dgp10 years
core_8_5_16core_8_5_16.zip  core_8_5_16.tar.gz  core_8_5_16.tar.bz2  10 years
core-8-5-16core-8-5-16.zip  core-8-5-16.tar.gz  core-8-5-16.tar.bz2  dgp10 years
rc3rc3.zip  rc3.tar.gz  rc3.tar.bz2  10 years
core_8_6_1core_8_6_1.zip  core_8_6_1.tar.gz  core_8_6_1.tar.bz2  11 years
core-8-6-1core-8-6-1.zip  core-8-6-1.tar.gz  core-8-6-1.tar.bz2  dgp11 years
core_8_5_15core_8_5_15.zip  core_8_5_15.tar.gz  core_8_5_15.tar.bz2  11 years
core-8-5-15core-8-5-15.zip  core-8-5-15.tar.gz  core-8-5-15.tar.bz2  dgp11 years
core-8-4-20core-8-4-20.zip  core-8-4-20.tar.gz  core-8-4-20.tar.bz2  dgp11 years
core_8_4_20core_8_4_20.zip  core_8_4_20.tar.gz  core_8_4_20.tar.bz2  11 years
core-8-5-14core-8-5-14.zip  core-8-5-14.tar.gz  core-8-5-14.tar.bz2  dgp11 years
core_8_5_14core_8_5_14.zip  core_8_5_14.tar.gz  core_8_5_14.tar.bz2  11 years
core_8_6_0core_8_6_0.zip  core_8_6_0.tar.gz  core_8_6_0.tar.bz2  12 years
core-8-6-0core-8-6-0.zip  core-8-6-0.tar.gz  core-8-6-0.tar.bz2  dgp12 years
core_8_5_13core_8_5_13.zip  core_8_5_13.tar.gz  core_8_5_13.tar.bz2  12 years
core-8-5-13core-8-5-13.zip  core-8-5-13.tar.gz  core-8-5-13.tar.bz2  dgp12 years
core_8_6_b3core_8_6_b3.zip  core_8_6_b3.tar.gz  core_8_6_b3.tar.bz2  12 years
core-8-6-b3core-8-6-b3.zip  core-8-6-b3.tar.gz  core-8-6-b3.tar.bz2  dgp12 years
core_8_5_12core_8_5_12.zip  core_8_5_12.tar.gz  core_8_5_12.tar.bz2  12 years
core-8-5-12core-8-5-12.zip  core-8-5-12.tar.gz  core-8-5-12.tar.bz2  dgp12 years
core_8_5_11core_8_5_11.zip  core_8_5_11.tar.gz  core_8_5_11.tar.bz2  13 years
core-8-5-11core-8-5-11.zip  core-8-5-11.tar.gz  core-8-5-11.tar.bz2  dgp13 years
core_8_6_b2core_8_6_b2.zip  core_8_6_b2.tar.gz  core_8_6_b2.tar.bz2  13 years
core-8-6-b2core-8-6-b2.zip  core-8-6-b2.tar.gz  core-8-6-b2.tar.bz2  dgp13 years
core_8_5_10core_8_5_10.zip  core_8_5_10.tar.gz  core_8_5_10.tar.bz2  13 years
core-8-5-10core-8-5-10.zip  core-8-5-10.tar.gz  core-8-5-10.tar.bz2  dgp13 years
core_8_1_0core_8_1_0.zip  core_8_1_0.tar.gz  core_8_1_0.tar.bz2  13 years
core_8_1_1core_8_1_1.zip  core_8_1_1.tar.gz  core_8_1_1.tar.bz2  13 years
core_8_4_a4core_8_4_a4.zip  core_8_4_a4.tar.gz  core_8_4_a4.tar.bz2  13 years
core_8_4_b1core_8_4_b1.zip  core_8_4_b1.tar.gz  core_8_4_b1.tar.bz2  13 years
core_8_5_0core_8_5_0.zip  core_8_5_0.tar.gz  core_8_5_0.tar.bz2  13 years
core_8_5_1core_8_5_1.zip  core_8_5_1.tar.gz  core_8_5_1.tar.bz2  13 years
core_8_5_2core_8_5_2.zip  core_8_5_2.tar.gz  core_8_5_2.tar.bz2  13 years
core_stabilizer_mergecore_stabilizer_merge.zip  core_stabilizer_merge.tar.gz  core_stabilizer_merge.tar.bz2  13 years
macosx_premerge_6_9_02macosx_premerge_6_9_02.zip  macosx_premerge_6_9_02.tar.gz  macosx_premerge_6_9_02.tar.bz2  13 years
tclpro_1_5_0tclpro_1_5_0.zip  tclpro_1_5_0.tar.gz  tclpro_1_5_0.tar.bz2  13 years
core_8_0_2core_8_0_2.zip  core_8_0_2.tar.gz  core_8_0_2.tar.bz2  13 years
core_8_0_3core_8_0_3.zip  core_8_0_3.tar.gz  core_8_0_3.tar.bz2  13 years
core_8_0_4core_8_0_4.zip  core_8_0_4.tar.gz  core_8_0_4.tar.bz2  13 years
core_8_0_5core_8_0_5.zip  core_8_0_5.tar.gz  core_8_0_5.tar.bz2  13 years
core_8_0_5_basecore_8_0_5_base.zip  core_8_0_5_base.tar.gz  core_8_0_5_base.tar.bz2  13 years
core_8_1_a2core_8_1_a2.zip  core_8_1_a2.tar.gz  core_8_1_a2.tar.bz2  13 years
core_8_1_b1core_8_1_b1.zip  core_8_1_b1.tar.gz  core_8_1_b1.tar.bz2  13 years
core_8_1_b2core_8_1_b2.zip  core_8_1_b2.tar.gz  core_8_1_b2.tar.bz2  13 years
core_8_1_b3core_8_1_b3.zip  core_8_1_b3.tar.gz  core_8_1_b3.tar.bz2  13 years
core_8_4_0core_8_4_0.zip  core_8_4_0.tar.gz  core_8_4_0.tar.bz2  13 years
core_8_4_1core_8_4_1.zip  core_8_4_1.tar.gz  core_8_4_1.tar.bz2  13 years
core_8_4_2core_8_4_2.zip  core_8_4_2.tar.gz  core_8_4_2.tar.bz2  13 years
core_8_4_3core_8_4_3.zip  core_8_4_3.tar.gz  core_8_4_3.tar.bz2  13 years
core_8_4_4core_8_4_4.zip  core_8_4_4.tar.gz  core_8_4_4.tar.bz2  13 years
core_8_4_5core_8_4_5.zip  core_8_4_5.tar.gz  core_8_4_5.tar.bz2  13 years
core_8_4_6core_8_4_6.zip  core_8_4_6.tar.gz  core_8_4_6.tar.bz2  13 years
core_8_4_7core_8_4_7.zip  core_8_4_7.tar.gz  core_8_4_7.tar.bz2  13 years
core_8_4_8core_8_4_8.zip  core_8_4_8.tar.gz  core_8_4_8.tar.bz2  13 years
core_8_4_9core_8_4_9.zip  core_8_4_9.tar.gz  core_8_4_9.tar.bz2  13 years
core_8_4_a1core_8_4_a1.zip  core_8_4_a1.tar.gz  core_8_4_a1.tar.bz2  13 years
core_8_4_a2core_8_4_a2.zip  core_8_4_a2.tar.gz  core_8_4_a2.tar.bz2  13 years
core_8_4_a3core_8_4_a3.zip  core_8_4_a3.tar.gz  core_8_4_a3.tar.bz2  13 years
core_8_6_a2core_8_6_a2.zip  core_8_6_a2.tar.gz  core_8_6_a2.tar.bz2  13 years
core_8_6_a3core_8_6_a3.zip  core_8_6_a3.tar.gz  core_8_6_a3.tar.bz2  13 years
core_8_6_b1core_8_6_b1.zip  core_8_6_b1.tar.gz  core_8_6_b1.tar.bz2  13 years
macosx_8_4_premerge_2002_08_31_branchmacosx_8_4_premerge_2002_08_31_branch.zip  macosx_8_4_premerge_2002_08_31_branch.tar.gz  macosx_8_4_premerge_2002_08_31_branch.tar.bz2  13 years
scriptics_sc_1_0_basescriptics_sc_1_0_base.zip  scriptics_sc_1_0_base.tar.gz  scriptics_sc_1_0_base.tar.bz2  13 years
scriptics_tclpro_1_2_b1scriptics_tclpro_1_2_b1.zip  scriptics_tclpro_1_2_b1.tar.gz  scriptics_tclpro_1_2_b1.tar.bz2  13 years
scriptics_tclpro_1_2_b2scriptics_tclpro_1_2_b2.zip  scriptics_tclpro_1_2_b2.tar.gz  scriptics_tclpro_1_2_b2.tar.bz2  13 years
ajuba_ajuba2_2_1_baseajuba_ajuba2_2_1_base.zip  ajuba_ajuba2_2_1_base.tar.gz  ajuba_ajuba2_2_1_base.tar.bz2  13 years
core_8_0_6_basecore_8_0_6_base.zip  core_8_0_6_base.tar.gz  core_8_0_6_base.tar.bz2  13 years
core_8_1_merge_2_10_99core_8_1_merge_2_10_99.zip  core_8_1_merge_2_10_99.tar.gz  core_8_1_merge_2_10_99.tar.bz2  13 years
core_8_2_b3_basecore_8_2_b3_base.zip  core_8_2_b3_base.tar.gz  core_8_2_b3_base.tar.bz2  13 years
core_8_3_0core_8_3_0.zip  core_8_3_0.tar.gz  core_8_3_0.tar.bz2  13 years
core_8_3_1core_8_3_1.zip  core_8_3_1.tar.gz  core_8_3_1.tar.bz2  13 years
core_8_3_2core_8_3_2.zip  core_8_3_2.tar.gz  core_8_3_2.tar.bz2  13 years
core_8_3_3core_8_3_3.zip  core_8_3_3.tar.gz  core_8_3_3.tar.bz2  13 years
core_8_3_4core_8_3_4.zip  core_8_3_4.tar.gz  core_8_3_4.tar.bz2  13 years
core_8_3_5core_8_3_5.zip  core_8_3_5.tar.gz  core_8_3_5.tar.bz2  13 years
core_8_3_b1core_8_3_b1.zip  core_8_3_b1.tar.gz  core_8_3_b1.tar.bz2  13 years
core_8_3_b2core_8_3_b2.zip  core_8_3_b2.tar.gz  core_8_3_b2.tar.bz2  13 years
core_8_5_a4core_8_5_a4.zip  core_8_5_a4.tar.gz  core_8_5_a4.tar.bz2  13 years
core_8_5_a5core_8_5_a5.zip  core_8_5_a5.tar.gz  core_8_5_a5.tar.bz2  13 years
core_8_5_a6core_8_5_a6.zip  core_8_5_a6.tar.gz  core_8_5_a6.tar.bz2  13 years
core_8_5_b1core_8_5_b1.zip  core_8_5_b1.tar.gz  core_8_5_b1.tar.bz2  13 years
core_8_5_b2core_8_5_b2.zip  core_8_5_b2.tar.gz  core_8_5_b2.tar.bz2  13 years
core_8_5_b3core_8_5_b3.zip  core_8_5_b3.tar.gz  core_8_5_b3.tar.bz2  13 years
core_8_6_a1core_8_6_a1.zip  core_8_6_a1.tar.gz  core_8_6_a1.tar.bz2  13 years
core_stablilizer_mergecore_stablilizer_merge.zip  core_stablilizer_merge.tar.gz  core_stablilizer_merge.tar.bz2  13 years
macosx_8_4_branchpointmacosx_8_4_branchpoint.zip  macosx_8_4_branchpoint.tar.gz  macosx_8_4_branchpoint.tar.bz2  13 years
macosx_8_4_merge_2002_08_20_trunkmacosx_8_4_merge_2002_08_20_trunk.zip  macosx_8_4_merge_2002_08_20_trunk.tar.gz  macosx_8_4_merge_2002_08_20_trunk.tar.bz2  13 years
macosx_8_4_merge_2002_08_30_trunkmacosx_8_4_merge_2002_08_30_trunk.zip  macosx_8_4_merge_2002_08_30_trunk.tar.gz  macosx_8_4_merge_2002_08_30_trunk.tar.bz2  13 years
macosx_carbon_freezemacosx_carbon_freeze.zip  macosx_carbon_freeze.tar.gz  macosx_carbon_freeze.tar.bz2  13 years
macosx_cocoa_mergemacosx_cocoa_merge.zip  macosx_cocoa_merge.tar.gz  macosx_cocoa_merge.tar.bz2  13 years
scriptics_bc_1_0_b1scriptics_bc_1_0_b1.zip  scriptics_bc_1_0_b1.tar.gz  scriptics_bc_1_0_b1.tar.bz2  13 years
scriptics_sc_1_0scriptics_sc_1_0.zip  scriptics_sc_1_0.tar.gz  scriptics_sc_1_0.tar.bz2  13 years
scriptics_sc_1_1scriptics_sc_1_1.zip  scriptics_sc_1_1.tar.gz  scriptics_sc_1_1.tar.bz2  13 years
scriptics_sc_1_1_basescriptics_sc_1_1_base.zip  scriptics_sc_1_1_base.tar.gz  scriptics_sc_1_1_base.tar.bz2  13 years
scriptics_sc_2_0_b1scriptics_sc_2_0_b1.zip  scriptics_sc_2_0_b1.tar.gz  scriptics_sc_2_0_b1.tar.bz2  13 years
scriptics_sc_2_0_b2scriptics_sc_2_0_b2.zip  scriptics_sc_2_0_b2.tar.gz  scriptics_sc_2_0_b2.tar.bz2  13 years
scriptics_sc_2_0_b5scriptics_sc_2_0_b5.zip  scriptics_sc_2_0_b5.tar.gz  scriptics_sc_2_0_b5.tar.bz2  13 years
scriptics_tclpro_1_2scriptics_tclpro_1_2.zip  scriptics_tclpro_1_2.tar.gz  scriptics_tclpro_1_2.tar.bz2  13 years
scriptics_tclpro_1_2_a1scriptics_tclpro_1_2_a1.zip  scriptics_tclpro_1_2_a1.tar.gz  scriptics_tclpro_1_2_a1.tar.bz2  13 years
tclpro_1_4_0tclpro_1_4_0.zip  tclpro_1_4_0.tar.gz  tclpro_1_4_0.tar.bz2  13 years
tclpro_1_4_1tclpro_1_4_1.zip  tclpro_1_4_1.tar.gz  tclpro_1_4_1.tar.bz2  13 years
ajuba_ajuba2_2_0ajuba_ajuba2_2_0.zip  ajuba_ajuba2_2_0.tar.gz  ajuba_ajuba2_2_0.tar.bz2  13 years
core_8_1_1_basecore_8_1_1_base.zip  core_8_1_1_base.tar.gz  core_8_1_1_base.tar.bz2  13 years
core_8_2_0core_8_2_0.zip  core_8_2_0.tar.gz  core_8_2_0.tar.bz2  13 years
core_8_2_1core_8_2_1.zip  core_8_2_1.tar.gz  core_8_2_1.tar.bz2  13 years
core_8_2_2core_8_2_2.zip  core_8_2_2.tar.gz  core_8_2_2.tar.bz2  13 years
core_8_2_3core_8_2_3.zip  core_8_2_3.tar.gz  core_8_2_3.tar.bz2  13 years
core_8_2_b1core_8_2_b1.zip  core_8_2_b1.tar.gz  core_8_2_b1.tar.bz2  13 years
core_8_2_b2core_8_2_b2.zip  core_8_2_b2.tar.gz  core_8_2_b2.tar.bz2  13 years
core_8_4_10core_8_4_10.zip  core_8_4_10.tar.gz  core_8_4_10.tar.bz2  13 years
core_8_4_11core_8_4_11.zip  core_8_4_11.tar.gz  core_8_4_11.tar.bz2  13 years
core_8_4_12core_8_4_12.zip  core_8_4_12.tar.gz  core_8_4_12.tar.bz2  13 years
core_8_4_13core_8_4_13.zip  core_8_4_13.tar.gz  core_8_4_13.tar.bz2  13 years
core_8_4_14core_8_4_14.zip  core_8_4_14.tar.gz  core_8_4_14.tar.bz2  13 years
core_8_4_15core_8_4_15.zip  core_8_4_15.tar.gz  core_8_4_15.tar.bz2  13 years
core_8_4_16core_8_4_16.zip  core_8_4_16.tar.gz  core_8_4_16.tar.bz2  13 years
core_8_4_17core_8_4_17.zip  core_8_4_17.tar.gz  core_8_4_17.tar.bz2  13 years
core_8_4_18core_8_4_18.zip  core_8_4_18.tar.gz  core_8_4_18.tar.bz2  13 years
core_8_4_19core_8_4_19.zip  core_8_4_19.tar.gz  core_8_4_19.tar.bz2  13 years
core_8_4_b2core_8_4_b2.zip  core_8_4_b2.tar.gz  core_8_4_b2.tar.bz2  13 years
core_8_5_3core_8_5_3.zip  core_8_5_3.tar.gz  core_8_5_3.tar.bz2  13 years
core_8_5_4core_8_5_4.zip  core_8_5_4.tar.gz  core_8_5_4.tar.bz2  13 years
core_8_5_5core_8_5_5.zip  core_8_5_5.tar.gz  core_8_5_5.tar.bz2  13 years
core_8_5_6core_8_5_6.zip  core_8_5_6.tar.gz  core_8_5_6.tar.bz2  13 years
core_8_5_7core_8_5_7.zip  core_8_5_7.tar.gz  core_8_5_7.tar.bz2  13 years
core_8_5_8core_8_5_8.zip  core_8_5_8.tar.gz  core_8_5_8.tar.bz2  13 years
core_8_5_9core_8_5_9.zip  core_8_5_9.tar.gz  core_8_5_9.tar.bz2  13 years
core_8_5_a1core_8_5_a1.zip  core_8_5_a1.tar.gz  core_8_5_a1.tar.bz2  13 years
core_8_5_a2core_8_5_a2.zip  core_8_5_a2.tar.gz  core_8_5_a2.tar.bz2  13 years
core_8_5_a3core_8_5_a3.zip  core_8_5_a3.tar.gz  core_8_5_a3.tar.bz2  13 years
macosx_8_4_merge_2002_08_20_branchmacosx_8_4_merge_2002_08_20_branch.zip  macosx_8_4_merge_2002_08_20_branch.tar.gz  macosx_8_4_merge_2002_08_20_branch.tar.bz2  13 years
macosx_8_4_merge_2002_08_30_branchmacosx_8_4_merge_2002_08_30_branch.zip  macosx_8_4_merge_2002_08_30_branch.tar.gz  macosx_8_4_merge_2002_08_30_branch.tar.bz2  13 years
macosx_8_4_merge_2002_08_31_trunkmacosx_8_4_merge_2002_08_31_trunk.zip  macosx_8_4_merge_2002_08_31_trunk.tar.gz  macosx_8_4_merge_2002_08_31_trunk.tar.bz2  13 years
macosx_8_4_premerge_2002_08_31_trunkmacosx_8_4_premerge_2002_08_31_trunk.zip  macosx_8_4_premerge_2002_08_31_trunk.tar.gz  macosx_8_4_premerge_2002_08_31_trunk.tar.bz2  13 years
macosx_cocoa_premergemacosx_cocoa_premerge.zip  macosx_cocoa_premerge.tar.gz  macosx_cocoa_premerge.tar.bz2  13 years
scriptics_sc_1_1_b1scriptics_sc_1_1_b1.zip  scriptics_sc_1_1_b1.tar.gz  scriptics_sc_1_1_b1.tar.bz2  13 years
scriptics_sc_2_0_fixedscriptics_sc_2_0_fixed.zip  scriptics_sc_2_0_fixed.tar.gz  scriptics_sc_2_0_fixed.tar.bz2  13 years
scriptics_tclpro_1_3_0scriptics_tclpro_1_3_0.zip  scriptics_tclpro_1_3_0.tar.gz  scriptics_tclpro_1_3_0.tar.bz2  13 years
scriptics_tclpro_1_3_b1scriptics_tclpro_1_3_b1.zip  scriptics_tclpro_1_3_b1.tar.gz  scriptics_tclpro_1_3_b1.tar.bz2  13 years
scriptics_tclpro_1_3_b2scriptics_tclpro_1_3_b2.zip  scriptics_tclpro_1_3_b2.tar.gz  scriptics_tclpro_1_3_b2.tar.bz2  13 years
scriptics_tclpro_1_3_b3scriptics_tclpro_1_3_b3.zip  scriptics_tclpro_1_3_b3.tar.gz  scriptics_tclpro_1_3_b3.tar.bz2  13 years
scriptics_tclpro_1_3_b4scriptics_tclpro_1_3_b4.zip  scriptics_tclpro_1_3_b4.tar.gz  scriptics_tclpro_1_3_b4.tar.bz2  13 years
core-8-5-9core-8-5-9.zip  core-8-5-9.tar.gz  core-8-5-9.tar.bz2  dgp14 years
core-8-5-8core-8-5-8.zip  core-8-5-8.tar.gz  core-8-5-8.tar.bz2  dgp15 years
macosx-cocoa-mergemacosx-cocoa-merge.zip  macosx-cocoa-merge.tar.gz  macosx-cocoa-merge.tar.bz2  das15 years
macosx-cocoa-premergemacosx-cocoa-premerge.zip  macosx-cocoa-premerge.tar.gz  macosx-cocoa-premerge.tar.bz2  nijtmans15 years
macosx-carbon-freezemacosx-carbon-freeze.zip  macosx-carbon-freeze.tar.gz  macosx-carbon-freeze.tar.bz2  nijtmans15 years
core-8-5-7core-8-5-7.zip  core-8-5-7.tar.gz  core-8-5-7.tar.bz2  dgp15 years
core-8-5-6core-8-5-6.zip  core-8-5-6.tar.gz  core-8-5-6.tar.bz2  dgp16 years
core-8-6-b1core-8-6-b1.zip  core-8-6-b1.tar.gz  core-8-6-b1.tar.bz2  das16 years
core-8-5-5core-8-5-5.zip  core-8-5-5.tar.gz  core-8-5-5.tar.bz2  dgp16 years
core-8-6-a3core-8-6-a3.zip  core-8-6-a3.tar.gz  core-8-6-a3.tar.bz2  dgp16 years
core-8-6-a2core-8-6-a2.zip  core-8-6-a2.tar.gz  core-8-6-a2.tar.bz2  dgp16 years
core-8-5-4core-8-5-4.zip  core-8-5-4.tar.gz  core-8-5-4.tar.bz2  dgp16 years
core-8-5-3core-8-5-3.zip  core-8-5-3.tar.gz  core-8-5-3.tar.bz2  dgp16 years
core-stabilizer-mergecore-stabilizer-merge.zip  core-stabilizer-merge.tar.gz  core-stabilizer-merge.tar.bz2  cvs2fossil16 years
core-8-6-a1core-8-6-a1.zip  core-8-6-a1.tar.gz  core-8-6-a1.tar.bz2  dgp16 years
core-8-4-19core-8-4-19.zip  core-8-4-19.tar.gz  core-8-4-19.tar.bz2  dgp16 years
core-8-5-2core-8-5-2.zip  core-8-5-2.tar.gz  core-8-5-2.tar.bz2  dgp16 years
core-8-4-18core-8-4-18.zip  core-8-4-18.tar.gz  core-8-4-18.tar.bz2  dgp16 years
core-8-5-1core-8-5-1.zip  core-8-5-1.tar.gz  core-8-5-1.tar.bz2  dgp16 years
core-8-4-17core-8-4-17.zip  core-8-4-17.tar.gz  core-8-4-17.tar.bz2  das17 years
core-8-5-0core-8-5-0.zip  core-8-5-0.tar.gz  core-8-5-0.tar.bz2  dgp17 years
core-8-5-b3core-8-5-b3.zip  core-8-5-b3.tar.gz  core-8-5-b3.tar.bz2  das17 years
core-8-5-b2core-8-5-b2.zip  core-8-5-b2.tar.gz  core-8-5-b2.tar.bz2  dgp17 years
core-8-5-b1core-8-5-b1.zip  core-8-5-b1.tar.gz  core-8-5-b1.tar.bz2  dgp17 years
core-8-4-16core-8-4-16.zip  core-8-4-16.tar.gz  core-8-4-16.tar.bz2  das17 years
core-stablilizer-mergecore-stablilizer-merge.zip  core-stablilizer-merge.tar.gz  core-stablilizer-merge.tar.bz2  das17 years
core-8-4-15core-8-4-15.zip  core-8-4-15.tar.gz  core-8-4-15.tar.bz2  dgp17 years
core-8-5-a6core-8-5-a6.zip  core-8-5-a6.tar.gz  core-8-5-a6.tar.bz2  hobbs17 years
core-8-5-a5core-8-5-a5.zip  core-8-5-a5.tar.gz  core-8-5-a5.tar.bz2  cvs2fossil18 years
core-8-4-14core-8-4-14.zip  core-8-4-14.tar.gz  core-8-4-14.tar.bz2  dgp18 years
core-8-5-a4core-8-5-a4.zip  core-8-5-a4.tar.gz  core-8-5-a4.tar.bz2  dgp18 years
core-8-4-13core-8-4-13.zip  core-8-4-13.tar.gz  core-8-4-13.tar.bz2  dgp18 years
core-8-4-12core-8-4-12.zip  core-8-4-12.tar.gz  core-8-4-12.tar.bz2  hobbs19 years
core-8-4-11core-8-4-11.zip  core-8-4-11.tar.gz  core-8-4-11.tar.bz2  das19 years
core-8-5-a3core-8-5-a3.zip  core-8-5-a3.tar.gz  core-8-5-a3.tar.bz2  hobbs19 years
core-8-4-10core-8-4-10.zip  core-8-4-10.tar.gz  core-8-4-10.tar.bz2  das19 years
core-8-5-a2core-8-5-a2.zip  core-8-5-a2.tar.gz  core-8-5-a2.tar.bz2  hobbs20 years
core-8-4-9core-8-4-9.zip  core-8-4-9.tar.gz  core-8-4-9.tar.bz2  hobbs20 years
core-8-4-8core-8-4-8.zip  core-8-4-8.tar.gz  core-8-4-8.tar.bz2  rmax20 years
core-8-4-7core-8-4-7.zip  core-8-4-7.tar.gz  core-8-4-7.tar.bz2  dgp20 years
core-8-5-a1core-8-5-a1.zip  core-8-5-a1.tar.gz  core-8-5-a1.tar.bz2  hobbs20 years
core-8-4-6core-8-4-6.zip  core-8-4-6.tar.gz  core-8-4-6.tar.bz2  dgp20 years
core-8-4-5core-8-4-5.zip  core-8-4-5.tar.gz  core-8-4-5.tar.bz2  hobbs21 years
core-8-4-4core-8-4-4.zip  core-8-4-4.tar.gz  core-8-4-4.tar.bz2  hobbs21 years
core-8-4-3core-8-4-3.zip  core-8-4-3.tar.gz  core-8-4-3.tar.bz2  hobbs21 years
core-8-4-2core-8-4-2.zip  core-8-4-2.tar.gz  core-8-4-2.tar.bz2  hobbs21 years
core-8-4-1core-8-4-1.zip  core-8-4-1.tar.gz  core-8-4-1.tar.bz2  hobbs22 years
core-8-3-5core-8-3-5.zip  core-8-3-5.tar.gz  core-8-3-5.tar.bz2  hobbs22 years
core-8-4-0core-8-4-0.zip  core-8-4-0.tar.gz  core-8-4-0.tar.bz2  hobbs22 years
macosx-8-4-merge-2002-08-31-trunkmacosx-8-4-merge-2002-08-31-trunk.zip  macosx-8-4-merge-2002-08-31-trunk.tar.gz  macosx-8-4-merge-2002-08-31-trunk.tar.bz2  das22 years
macosx-8-4-premerge-2002-08-31-branchmacosx-8-4-premerge-2002-08-31-branch.zip  macosx-8-4-premerge-2002-08-31-branch.tar.gz  macosx-8-4-premerge-2002-08-31-branch.tar.bz2  das22 years
macosx-8-4-merge-2002-08-30-branchmacosx-8-4-merge-2002-08-30-branch.zip  macosx-8-4-merge-2002-08-30-branch.tar.gz  macosx-8-4-merge-2002-08-30-branch.tar.bz2  das22 years
macosx-8-4-merge-2002-08-30-trunkmacosx-8-4-merge-2002-08-30-trunk.zip  macosx-8-4-merge-2002-08-30-trunk.tar.gz  macosx-8-4-merge-2002-08-30-trunk.tar.bz2  drh22 years
macosx-8-4-premerge-2002-08-31-trunkmacosx-8-4-premerge-2002-08-31-trunk.zip  macosx-8-4-premerge-2002-08-31-trunk.tar.gz  macosx-8-4-premerge-2002-08-31-trunk.tar.bz2  drh22 years
macosx-8-4-merge-2002-08-20-branchmacosx-8-4-merge-2002-08-20-branch.zip  macosx-8-4-merge-2002-08-20-branch.tar.gz  macosx-8-4-merge-2002-08-20-branch.tar.bz2  das22 years
macosx-8-4-merge-2002-08-20-trunkmacosx-8-4-merge-2002-08-20-trunk.zip  macosx-8-4-merge-2002-08-20-trunk.tar.gz  macosx-8-4-merge-2002-08-20-trunk.tar.bz2  dgp22 years
core-8-4-b2core-8-4-b2.zip  core-8-4-b2.tar.gz  core-8-4-b2.tar.bz2  hobbs22 years
core-8-4-b1core-8-4-b1.zip  core-8-4-b1.tar.gz  core-8-4-b1.tar.bz2  hobbs22 years
macosx-premerge-6-9-02macosx-premerge-6-9-02.zip  macosx-premerge-6-9-02.tar.gz  macosx-premerge-6-9-02.tar.bz2  wolfsuit22 years
core-8-4-a4core-8-4-a4.zip  core-8-4-a4.tar.gz  core-8-4-a4.tar.bz2  hobbs22 years
core-8-3-4core-8-3-4.zip  core-8-3-4.tar.gz  core-8-3-4.tar.bz2  hobbs23 years
macosx-8-4-branchpointmacosx-8-4-branchpoint.zip  macosx-8-4-branchpoint.tar.gz  macosx-8-4-branchpoint.tar.bz2  tmh23 years
core-8-4-a3core-8-4-a3.zip  core-8-4-a3.tar.gz  core-8-4-a3.tar.bz2  hobbs23 years
core-8-3-3core-8-3-3.zip  core-8-3-3.tar.gz  core-8-3-3.tar.bz2  hobbs23 years
core-8-4-a2core-8-4-a2.zip  core-8-4-a2.tar.gz  core-8-4-a2.tar.bz2  hobbs24 years
core-8-3-2core-8-3-2.zip  core-8-3-2.tar.gz  core-8-3-2.tar.bz2  hobbs24 years
tclpro-1-4-0tclpro-1-4-0.zip  tclpro-1-4-0.tar.gz  tclpro-1-4-0.tar.bz2  cvs2fossil24 years
tclpro-1-4-1tclpro-1-4-1.zip  tclpro-1-4-1.tar.gz  tclpro-1-4-1.tar.bz2  cvs2fossil24 years
tclpro-1-5-0tclpro-1-5-0.zip  tclpro-1-5-0.tar.gz  tclpro-1-5-0.tar.bz2  cvs2fossil24 years
ajuba-ajuba2-2-1-baseajuba-ajuba2-2-1-base.zip  ajuba-ajuba2-2-1-base.tar.gz  ajuba-ajuba2-2-1-base.tar.bz2  cvs2fossil24 years
core-8-4-a1core-8-4-a1.zip  core-8-4-a1.tar.gz  core-8-4-a1.tar.bz2  ericm24 years
ajuba-ajuba2-2-0ajuba-ajuba2-2-0.zip  ajuba-ajuba2-2-0.tar.gz  ajuba-ajuba2-2-0.tar.bz2  hobbs24 years
core-8-3-1core-8-3-1.zip  core-8-3-1.tar.gz  core-8-3-1.tar.bz2  hobbs24 years
scriptics-sc-2-0-b5scriptics-sc-2-0-b5.zip  scriptics-sc-2-0-b5.tar.gz  scriptics-sc-2-0-b5.tar.bz2  ericm24 years
scriptics-sc-2-0-fixedscriptics-sc-2-0-fixed.zip  scriptics-sc-2-0-fixed.tar.gz  scriptics-sc-2-0-fixed.tar.bz2  ericm24 years
scriptics-sc-2-0-b1scriptics-sc-2-0-b1.zip  scriptics-sc-2-0-b1.tar.gz  scriptics-sc-2-0-b1.tar.bz2  sven24 years
scriptics-sc-2-0-b2scriptics-sc-2-0-b2.zip  scriptics-sc-2-0-b2.tar.gz  scriptics-sc-2-0-b2.tar.bz2  sven24 years
core-8-3-0core-8-3-0.zip  core-8-3-0.tar.gz  core-8-3-0.tar.bz2  hobbs24 years
core-8-3-b2core-8-3-b2.zip  core-8-3-b2.tar.gz  core-8-3-b2.tar.bz2  hobbs25 years
core-8-3-b1core-8-3-b1.zip  core-8-3-b1.tar.gz  core-8-3-b1.tar.bz2  hobbs25 years
core-8-2-3core-8-2-3.zip  core-8-2-3.tar.gz  core-8-2-3.tar.bz2  hobbs25 years
scriptics-sc-1-1scriptics-sc-1-1.zip  scriptics-sc-1-1.tar.gz  scriptics-sc-1-1.tar.bz2  hobbs25 years
scriptics-sc-1-1-b1scriptics-sc-1-1-b1.zip  scriptics-sc-1-1-b1.tar.gz  scriptics-sc-1-1-b1.tar.bz2  cvs25 years
scriptics-sc-1-1-basescriptics-sc-1-1-base.zip  scriptics-sc-1-1-base.tar.gz  scriptics-sc-1-1-base.tar.bz2  cvs25 years
core-8-2-2core-8-2-2.zip  core-8-2-2.tar.gz  core-8-2-2.tar.bz2  cvs25 years
scriptics-sc-1-0scriptics-sc-1-0.zip  scriptics-sc-1-0.tar.gz  scriptics-sc-1-0.tar.bz2  cvs25 years
scriptics-sc-1-0-basescriptics-sc-1-0-base.zip  scriptics-sc-1-0-base.tar.gz  scriptics-sc-1-0-base.tar.bz2  cvs25 years
core-8-2-1core-8-2-1.zip  core-8-2-1.tar.gz  core-8-2-1.tar.bz2  hobbs25 years
scriptics-bc-1-0-b1scriptics-bc-1-0-b1.zip  scriptics-bc-1-0-b1.tar.gz  scriptics-bc-1-0-b1.tar.bz2  hobbs25 years
core-8-2-0core-8-2-0.zip  core-8-2-0.tar.gz  core-8-2-0.tar.bz2  redman25 years
scriptics-tclpro-1-3-0scriptics-tclpro-1-3-0.zip  scriptics-tclpro-1-3-0.tar.gz  scriptics-tclpro-1-3-0.tar.bz2  redman25 years
core-8-2-b3-basecore-8-2-b3-base.zip  core-8-2-b3-base.tar.gz  core-8-2-b3-base.tar.bz2  hobbs25 years
core-8-2-b2core-8-2-b2.zip  core-8-2-b2.tar.gz  core-8-2-b2.tar.bz2  redman25 years
scriptics-tclpro-1-3-b4scriptics-tclpro-1-3-b4.zip  scriptics-tclpro-1-3-b4.tar.gz  scriptics-tclpro-1-3-b4.tar.bz2  redman25 years
core-8-2-b1core-8-2-b1.zip  core-8-2-b1.tar.gz  core-8-2-b1.tar.bz2  redman25 years
scriptics-tclpro-1-3-b3scriptics-tclpro-1-3-b3.zip  scriptics-tclpro-1-3-b3.tar.gz  scriptics-tclpro-1-3-b3.tar.bz2  redman25 years
core-8-1-1core-8-1-1.zip  core-8-1-1.tar.gz  core-8-1-1.tar.bz2  stanton25 years
scriptics-tclpro-1-3-b2scriptics-tclpro-1-3-b2.zip  scriptics-tclpro-1-3-b2.tar.gz  scriptics-tclpro-1-3-b2.tar.bz2  redman25 years
core-8-1-1-basecore-8-1-1-base.zip  core-8-1-1-base.tar.gz  core-8-1-1-base.tar.bz2  stanton25 years
scriptics-tclpro-1-3-b1scriptics-tclpro-1-3-b1.zip  scriptics-tclpro-1-3-b1.tar.gz  scriptics-tclpro-1-3-b1.tar.bz2  stanton25 years
core-8-1-0core-8-1-0.zip  core-8-1-0.tar.gz  core-8-1-0.tar.bz2  cvs2fossil25 years
core-8-0-6-basecore-8-0-6-base.zip  core-8-0-6-base.tar.gz  core-8-0-6-base.tar.bz2  cvs25 years
core-8-0-5core-8-0-5.zip  core-8-0-5.tar.gz  core-8-0-5.tar.bz2  stanton25 years
core-8-1-b3core-8-1-b3.zip  core-8-1-b3.tar.gz  core-8-1-b3.tar.bz2  cvs2fossil25 years
core-8-1-b2core-8-1-b2.zip  core-8-1-b2.tar.gz  core-8-1-b2.tar.bz2  cvs2fossil25 years
scriptics-tclpro-1-2scriptics-tclpro-1-2.zip  scriptics-tclpro-1-2.tar.gz  scriptics-tclpro-1-2.tar.bz2  stanton25 years
scriptics-tclpro-1-2-b2scriptics-tclpro-1-2-b2.zip  scriptics-tclpro-1-2-b2.tar.gz  scriptics-tclpro-1-2-b2.tar.bz2  stanton25 years
core-8-0-5-basecore-8-0-5-base.zip  core-8-0-5-base.tar.gz  core-8-0-5-base.tar.bz2  stanton25 years
core-8-1-merge-2/10/99core-8-1-merge-2/10/99.zip  core-8-1-merge-2/10/99.tar.gz  core-8-1-merge-2/10/99.tar.bz2  stanton25 years
scriptics-tclpro-1-2-b1scriptics-tclpro-1-2-b1.zip  scriptics-tclpro-1-2-b1.tar.gz  scriptics-tclpro-1-2-b1.tar.bz2  stanton26 years
scriptics-tclpro-1-2-a1scriptics-tclpro-1-2-a1.zip  scriptics-tclpro-1-2-a1.tar.gz  scriptics-tclpro-1-2-a1.tar.bz2  hershey26 years
core-8-1-b1core-8-1-b1.zip  core-8-1-b1.tar.gz  core-8-1-b1.tar.bz2  cvs2fossil26 years
core-8-0-4core-8-0-4.zip  core-8-0-4.tar.gz  core-8-0-4.tar.bz2  rjohnson26 years
core-8-1-a2core-8-1-a2.zip  core-8-1-a2.tar.gz  core-8-1-a2.tar.bz2  cvs2fossil26 years
core-8-0-3core-8-0-3.zip  core-8-0-3.tar.gz  core-8-0-3.tar.bz2  stanton26 years
core-8-0-2core-8-0-2.zip  core-8-0-2.tar.gz  core-8-0-2.tar.bz2  cvs2fossil26 years
480 7481 7482 7483 7484 7485 7486 7487 7488 7489 7490 7491 7492 7493 7494 7495 7496 7497 7498 7499 7500 7501 7502 7503 7504 7505 7506 7507 7508 7509 7510 7511 7512 7513 7514 7515 7516 7517 7518 7519 7520 7521 7522 7523 7524 7525 7526 7527 7528 7529 7530 7531 7532 7533 7534 7535 7536 7537 7538 7539 7540 7541 7542 7543 7544 7545 7546 7547 7548 7549 7550 7551 7552 7553 7554 7555 7556 7557 7558 7559 7560 7561 7562 7563 7564 7565 7566 7567 7568 7569 7570 7571 7572 7573 7574 7575 7576 7577 7578 7579 7580 7581 7582 7583 7584 7585 7586 7587 7588 7589 7590 7591 7592 7593 7594 7595 7596 7597 7598 7599 7600 7601 7602 7603 7604 7605 7606 7607 7608 7609 7610 7611 7612 7613 7614 7615 7616 7617 7618 7619 7620 7621 7622 7623 7624 7625 7626 7627 7628 7629 7630 7631 7632 7633 7634 7635 7636 7637 7638 7639 7640 7641 7642 7643 7644 7645 7646 7647 7648 7649 7650 7651 7652 7653 7654 7655 7656 7657 7658 7659 7660 7661 7662 7663 7664 7665 7666 7667 7668 7669 7670 7671 7672 7673 7674 7675 7676 7677 7678 7679 7680 7681 7682 7683 7684 7685 7686 7687 7688 7689 7690 7691 7692 7693 7694 7695 7696 7697 7698 7699 7700 7701 7702 7703 7704 7705 7706 7707 7708 7709 7710 7711 7712 7713 7714 7715 7716 7717 7718 7719 7720 7721 7722 7723 7724 7725 7726 7727 7728 7729 7730 7731 7732 7733 7734 7735 7736 7737 7738 7739 7740 7741 7742 7743 7744 7745 7746 7747 7748 7749 7750 7751 7752 7753 7754 7755 7756 7757 7758 7759 7760 7761 7762 7763 7764 7765 7766 7767 7768 7769 7770 7771 7772 7773 7774 7775 7776 7777 7778 7779 7780 7781 7782 7783 7784 7785 7786 7787 7788 7789 7790 7791 7792 7793 7794 7795 7796 7797 7798 7799 7800 7801 7802 7803 7804 7805 7806 7807 7808 7809 7810 7811 7812 7813 7814 7815 7816 7817 7818 7819 7820 7821 7822 7823 7824 7825 7826 7827 7828 7829 7830 7831 7832 7833 7834 7835 7836 7837 7838 7839 7840 7841 7842 7843 7844 7845 7846 7847 7848 7849 7850 7851 7852 7853 7854 7855 7856 7857 7858 7859 7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873 7874 7875 7876 7877 7878 7879 7880 7881 7882 7883 7884 7885 7886 7887 7888 7889 7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903 7904 7905 7906 7907 7908 7909 7910 7911 7912 7913 7914 7915 7916 7917 7918 7919 7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933 7934 7935 7936 7937 7938 7939 7940 7941 7942 7943 7944 7945 7946 7947 7948 7949 7950 7951 7952 7953 7954 7955 7956 7957 7958 7959 7960 7961 7962 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7973 7974 7975 7976 7977 7978 7979 7980 7981 7982 7983 7984 7985 7986 7987 7988 7989 7990 7991 7992 7993 7994 7995 7996 7997 7998 7999 8000 8001 8002 8003 8004 8005 8006 8007 8008 8009 8010 8011 8012 8013 8014 8015 8016 8017 8018 8019 8020 8021 8022 8023 8024 8025 8026 8027 8028 8029 8030 8031 8032 8033 8034 8035 8036 8037 8038 8039 8040 8041 8042 8043 8044 8045 8046 8047 8048 8049 8050 8051 8052 8053 8054 8055 8056 8057 8058 8059 8060 8061 8062 8063 8064 8065 8066 8067 8068 8069 8070 8071 8072 8073 8074 8075 8076 8077 8078 8079 8080 8081 8082 8083 8084 8085 8086 8087 8088 8089 8090 8091 8092 8093 8094 8095 8096 8097 8098 8099 8100 8101 8102 8103 8104 8105 8106 8107 8108 8109 8110 8111 8112 8113 8114 8115 8116 8117 8118 8119 8120 8121 8122 8123 8124 8125 8126 8127 8128 8129 8130 8131 8132 8133 8134 8135 8136 8137 8138 8139 8140 8141 8142 8143 8144 8145 8146 8147 8148 8149 8150 8151 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 8165 8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177 8178 8179 8180 8181 8182 8183 8184 8185 8186 8187 8188 8189 8190 8191 8192 8193 8194 8195 8196 8197 8198 8199 8200 8201 8202 8203 8204 8205 8206 8207 8208 8209 8210 8211 8212 8213 8214 8215 8216 8217 8218 8219 8220 8221 8222 8223 8224 8225 8226 8227 8228 8229 8230 8231 8232 8233 8234 8235 8236 8237 8238 8239 8240 8241 8242 8243 8244 8245 8246 8247 8248 8249 8250 8251 8252 8253 8254 8255 8256 8257 8258 8259 8260 8261 8262 8263 8264 8265 8266 8267 8268 8269 8270 8271 8272 8273 8274 8275 8276 8277 8278 8279 8280 8281 8282 8283 8284 8285 8286 8287 8288 8289 8290 8291 8292 8293 8294 8295 8296 8297 8298 8299 8300 8301 8302 8303 8304 8305 8306 8307 8308 8309 8310 8311 8312 8313 8314 8315 8316 8317 8318 8319 8320 8321 8322 8323 8324 8325 8326 8327 8328 8329 8330 8331 8332 8333 8334 8335 8336 8337 8338 8339 8340 8341 8342 8343 8344 8345 8346 8347 8348 8349 8350 8351 8352 8353 8354 8355 8356 8357 8358 8359 8360 8361 8362 8363 8364 8365 8366 8367 8368 8369 8370 8371 8372 8373 8374 8375 8376 8377 8378 8379 8380 8381 8382 8383 8384 8385 8386 8387 8388 8389 8390 8391 8392 8393 8394 8395 8396 8397 8398 8399 8400 8401 8402 8403 8404 8405 8406 8407 8408 8409 8410 8411 8412 8413 8414 8415 8416 8417 8418 8419 8420 8421 8422 8423 8424 8425 8426 8427 8428 8429 8430 8431 8432 8433 8434 8435 8436 8437 8438 8439 8440 8441 8442 8443 8444 8445 8446 8447 8448 8449 8450 8451 8452 8453 8454 8455 8456 8457 8458 8459 8460 8461 8462 8463 8464 8465 8466 8467 8468 8469 8470 8471 8472 8473 8474 8475 8476 8477 8478 8479 8480 8481 8482 8483 8484 8485 8486 8487 8488 8489 8490 8491 8492 8493 8494 8495 8496 8497 8498 8499 8500 8501 8502 8503 8504 8505 8506 8507 8508 8509 8510 8511 8512 8513 8514 8515 8516 8517 8518 8519 8520 8521 8522 8523 8524 8525 8526 8527 8528 8529 8530 8531 8532 8533 8534 8535 8536 8537 8538 8539 8540 8541 8542 8543 8544 8545 8546 8547 8548 8549 8550 8551 8552 8553 8554 8555 8556 8557 8558 8559 8560 8561 8562 8563 8564 8565 8566 8567 8568 8569 8570 8571 8572 8573 8574 8575 8576 8577 8578 8579 8580 8581 8582 8583 8584 8585 8586 8587 8588 8589 8590 8591 8592 8593 8594 8595 8596 8597 8598 8599 8600 8601 8602 8603 8604 8605 8606 8607 8608 8609 8610 8611 8612 8613 8614 8615 8616 8617 8618 8619 8620 8621 8622 8623 8624 8625 8626 8627 8628 8629 8630 8631 8632 8633 8634 8635 8636 8637 8638 8639 8640 8641 8642 8643 8644 8645 8646 8647 8648 8649 8650 8651 8652 8653 8654 8655 8656 8657 8658 8659 8660 8661 8662 8663 8664 8665 8666 8667 8668 8669 8670 8671 8672 8673 8674 8675 8676 8677 8678 8679 8680 8681 8682 8683 8684 8685 8686 8687 8688 8689 8690 8691 8692 8693 8694 8695 8696 8697 8698 8699 8700 8701 8702 8703 8704 8705 8706 8707 8708 8709 8710 8711 8712 8713 8714 8715 8716 8717 8718 8719 8720 8721 8722 8723 8724 8725 8726 8727 8728 8729 8730 8731 8732 8733 8734 8735 8736 8737 8738 8739 8740 8741 8742 8743 8744 8745 8746 8747 8748 8749 8750 8751 8752 8753 8754 8755 8756 8757 8758 8759 8760 8761 8762 8763 8764 8765 8766 8767 8768 8769 8770 8771 8772 8773 8774 8775 8776 8777 8778 8779 8780 8781 8782 8783 8784 8785 8786 8787 8788 8789 8790 8791 8792 8793 8794 8795 8796 8797 8798 8799 8800 8801 8802 8803 8804 8805 8806 8807 8808 8809 8810 8811 8812 8813 8814 8815 8816 8817 8818 8819 8820 8821 8822 8823 8824 8825 8826 8827 8828 8829 8830 8831 8832 8833 8834 8835 8836 8837 8838 8839 8840 8841 8842 8843 8844 8845 8846 8847 8848 8849 8850 8851 8852 8853 8854 8855 8856 8857 8858 8859 8860 8861 8862 8863 8864 8865 8866 8867 8868 8869 8870 8871 8872 8873 8874 8875 8876 8877 8878 8879 8880 8881 8882 8883 8884 8885 8886 8887 8888 8889 8890 8891 8892 8893 8894 8895 8896 8897 8898 8899 8900 8901 8902 8903 8904 8905 8906 8907 8908 8909 8910 8911 8912 8913 8914 8915 8916 8917 8918 8919 8920 8921 8922 8923 8924 8925 8926 8927 8928 8929 8930 8931 8932 8933 8934 8935 8936 8937 8938 8939 8940 8941 8942 8943 8944 8945 8946 8947 8948 8949 8950 8951 8952 8953 8954 8955 8956 8957 8958 8959 8960 8961 8962 8963 8964 8965 8966 8967 8968 8969 8970 8971 8972 8973 8974 8975 8976 8977 8978 8979 8980 8981 8982 8983 8984 8985 8986 8987 8988 8989 8990 8991 8992 8993 8994 8995 8996 8997 8998 8999 9000 9001 9002 9003 9004 9005 9006 9007 9008 9009 9010 9011 9012 9013 9014 9015 9016 9017 9018 9019 9020 9021 9022 9023 9024 9025 9026 9027 9028 9029 9030 9031 9032 9033 9034 9035 9036 9037 9038 9039 9040 9041 9042 9043 9044 9045 9046 9047 9048 9049 9050 9051 9052 9053 9054 9055 9056 9057 9058 9059 9060 9061 9062 9063 9064 9065 9066 9067 9068 9069 9070 9071 9072 9073 9074 9075 9076 9077 9078 9079 9080 9081 9082 9083 9084 9085 9086 9087 9088 9089 9090 9091 9092 9093 9094 9095 9096 9097 9098 9099 9100 9101 9102 9103 9104 9105 9106 9107 9108 9109 9110 9111 9112 9113 9114 9115 9116 9117 9118 9119 9120 9121 9122 9123 9124 9125 9126 9127 9128 9129 9130 9131 9132 9133 9134 9135 9136 9137 9138 9139 9140 9141 9142 9143 9144 9145 9146 9147 9148 9149 9150 9151 9152 9153 9154 9155 9156 9157 9158 9159 9160 9161 9162 9163 9164 9165 9166 9167 9168 9169 9170 9171 9172 9173 9174 9175 9176 9177 9178 9179 9180 9181 9182 9183 9184 9185 9186 9187 9188 9189 9190 9191 9192 9193 9194 9195 9196 9197 9198 9199 9200 9201 9202 9203 9204 9205 9206 9207 9208 9209 9210 9211 9212 9213 9214 9215 9216 9217 9218 9219 9220 9221 9222 9223 9224 9225 9226 9227 9228 9229 9230 9231 9232 9233 9234 9235 9236 9237 9238 9239 9240 9241 9242 9243 9244 9245 9246 9247 9248 9249 9250 9251 9252 9253 9254 9255 9256 9257 9258 9259 9260 9261 9262 9263 9264 9265 9266 9267 9268 9269 9270 9271 9272 9273 9274 9275 9276 9277 9278 9279 9280 9281 9282 9283 9284 9285 9286 9287 9288 9289 9290 9291 9292 9293 9294 9295 9296 9297 9298 9299 9300 9301 9302 9303 9304 9305 9306 9307 9308 9309 9310 9311 9312 9313 9314 9315 9316 9317 9318 9319 9320 9321 9322 9323 9324 9325 9326 9327 9328 9329 9330 9331 9332 9333 9334 9335 9336 9337 9338 9339 9340 9341 9342 9343 9344 9345 9346 9347 9348 9349 9350 9351 9352 9353 9354 9355 9356 9357 9358 9359 9360 9361 9362 9363 9364 9365 9366 9367 9368 9369 9370 9371 9372 9373 9374 9375 9376 9377 9378 9379 9380 9381 9382 9383 9384 9385 9386 9387 9388 9389 9390 9391 9392 9393 9394 9395 9396 9397 9398 9399 9400 9401 9402 9403 9404 9405 9406 9407 9408 9409 9410 9411 9412 9413 9414 9415 9416 9417 9418 9419 9420 9421 9422 9423 9424 9425 9426 9427 9428 9429 9430 9431 9432 9433 9434 9435 9436 9437 9438 9439 9440 9441 9442 9443 9444 9445 9446 9447 9448 9449 9450 9451 9452 9453 9454 9455 9456 9457 9458 9459 9460 9461 9462 9463 9464 9465 9466 9467 9468 9469 9470 9471 9472 9473 9474 9475 9476 9477 9478 9479 9480 9481 9482 9483 9484 9485 9486 9487 9488 9489 9490 9491 9492 9493 9494 9495 9496 9497 9498 9499 9500 9501 9502 9503 9504 9505 9506 9507 9508 9509 9510 9511 9512 9513 9514 9515 9516 9517 9518 9519 9520 9521 9522 9523 9524 9525 9526 9527 9528 9529 9530 9531 9532 9533 9534 9535 9536 9537 9538 9539 9540 9541 9542 9543 9544 9545 9546 9547 9548 9549 9550 9551 9552 9553 9554 9555 9556 9557 9558 9559 9560 9561 9562 9563 9564 9565 9566 9567 9568 9569 9570 9571 9572 9573 9574 9575 9576 9577 9578 9579 9580 9581 9582 9583 9584 9585 9586 9587 9588 9589 9590 9591 9592 9593 9594 9595 9596 9597 9598 9599 9600 9601 9602 9603 9604 9605 9606 9607 9608 9609 9610 9611 9612 9613 9614 9615 9616 9617 9618 9619 9620 9621 9622 9623 9624 9625 9626 9627 9628 9629 9630 9631 9632 9633 9634 9635 9636 9637 9638 9639 9640 9641 9642 9643 9644 9645 9646 9647 9648 9649 9650 9651 9652 9653 9654 9655 9656 9657 9658 9659 9660 9661 9662 9663 9664 9665 9666 9667 9668 9669 9670 9671 9672 9673 9674 9675 9676 9677 9678 9679 9680 9681 9682 9683 9684 9685 9686 9687 9688 9689 9690 9691 9692 9693 9694 9695 9696 9697 9698 9699 9700 9701 9702 9703 9704 9705 9706 9707 9708 9709 9710 9711 9712 9713 9714 9715 9716 9717 9718 9719 9720 9721 9722 9723 9724 9725 9726 9727 9728 9729 9730 9731 9732 9733 9734 9735 9736 9737 9738 9739 9740 9741 9742 9743 9744 9745 9746 9747 9748 9749 9750 9751 9752 9753 9754 9755 9756 9757 9758 9759 9760 9761 9762 9763 9764 9765 9766 9767 9768 9769 9770 9771 9772 9773 9774 9775 9776 9777 9778 9779 9780 9781 9782 9783 9784 9785 9786 9787 9788 9789 9790 9791 9792 9793 9794 9795 9796 9797 9798 9799 9800 9801 9802 9803 9804 9805 9806 9807 9808 9809 9810 9811 9812 9813 9814 9815 9816 9817 9818 9819 9820 9821 9822 9823 9824 9825 9826 9827 9828 9829 9830 9831 9832 9833 9834 9835 9836 9837 9838 9839 9840 9841 9842 9843 9844 9845 9846 9847 9848 9849 9850 9851 9852 9853 9854 9855 9856 9857 9858 9859 9860 9861 9862 9863 9864 9865 9866 9867 9868 9869 9870 9871 9872 9873 9874 9875 9876 9877 9878 9879 9880 9881 9882 9883 9884 9885 9886 9887 9888 9889 9890 9891 9892 9893 9894 9895 9896 9897 9898 9899 9900 9901 9902 9903 9904 9905 9906 9907 9908 9909 9910 9911 9912 9913 9914 9915 9916 9917 9918 9919 9920 9921 9922 9923 9924 9925 9926 9927 9928 9929 9930 9931 9932 9933 9934 9935 9936 9937 9938 9939 9940 9941 9942 9943 9944 9945 9946 9947 9948 9949 9950 9951 9952 9953 9954 9955 9956 9957 9958 9959 9960 9961 9962 9963 9964 9965 9966 9967 9968 9969 9970 9971 9972 9973 9974 9975 9976 9977 9978 9979 9980 9981 9982 9983 9984 9985 9986 9987 9988 9989 9990 9991 9992 9993 9994 9995 9996 9997 9998 9999 10000 10001 10002 10003 10004 10005 10006 10007 10008 10009 10010 10011 10012 10013 10014 10015 10016 10017 10018 10019 10020 10021 10022 10023 10024 10025 10026 10027 10028 10029 10030 10031 10032 10033 10034 10035 10036 10037 10038 10039 10040 10041 10042 10043 10044 10045 10046 10047 10048 10049 10050 10051 10052 10053 10054 10055 10056 10057 10058 10059 10060 10061 10062 10063 10064 10065 10066 10067 10068 10069 10070 10071 10072 10073 10074 10075 10076 10077 10078 10079 10080 10081 10082 10083 10084 10085 10086 10087 10088 10089 10090 10091 10092 10093 10094 10095 10096 10097 10098 10099 10100 10101 10102 10103 10104 10105 10106 10107 10108 10109 10110 10111 10112 10113 10114 10115 10116 10117 10118 10119 10120 10121 10122 10123 10124 10125 10126 10127 10128 10129 10130 10131 10132 10133 10134 10135 10136 10137 10138 10139 10140 10141 10142 10143 10144 10145 10146 10147 10148 10149 10150 10151 10152 10153 10154 10155 10156 10157 10158 10159 10160 10161 10162 10163 10164 10165 10166 10167 10168 10169 10170 10171 10172 10173 10174 10175 10176 10177 10178 10179 10180 10181 10182 10183 10184 10185 10186 10187 10188 10189 10190 10191 10192 10193 10194 10195 10196 10197 10198 10199 10200 10201 10202 10203 10204 10205 10206 10207 10208 10209 10210 10211 10212 10213 10214 10215 10216 10217 10218 10219 10220 10221 10222 10223 10224 10225 10226 10227 10228 10229 10230 10231 10232 10233 10234 10235 10236 10237 10238 10239 10240 10241 10242 10243 10244 10245 10246 10247 10248 10249 10250 10251 10252 10253 10254 10255 10256 10257 10258 10259 10260 10261 10262 10263 10264 10265 10266 10267 10268 10269 10270 10271 10272 10273 10274 10275 10276 10277 10278 10279 10280 10281 10282 10283 10284 10285 10286 10287 10288 10289 10290 10291 10292 10293 10294 10295 10296 10297 10298 10299 10300 10301 10302 10303 10304 10305 10306 10307 10308 10309 10310 10311 10312 10313 10314 10315 10316 10317 10318 10319 10320 10321 10322 10323 10324 10325 10326 10327 10328 10329 10330 10331 10332 10333 10334 10335 10336 10337 10338 10339 10340 10341 10342 10343 10344 10345 10346 10347 10348 10349 10350 10351 10352 10353 10354 10355 10356 10357 10358 10359 10360 10361 10362 10363 10364 10365 10366 10367 10368 10369 10370 10371 10372 10373 10374 10375 10376 10377 10378 10379 10380 10381 10382 10383 10384 10385 10386 10387 10388 10389 10390 10391 10392 10393 10394 10395 10396 10397 10398 10399 10400 10401 10402 10403 10404 10405 10406 10407 10408 10409 10410 10411 10412 10413 10414 10415 10416 10417 10418 10419 10420 10421 10422 10423 10424 10425 10426 10427 10428 10429 10430 10431 10432 10433 10434 10435 10436 10437 10438 10439 10440 10441 10442 10443 10444 10445 10446 10447 10448 10449 10450 10451 10452 10453 10454 10455 10456 10457 10458 10459 10460 10461 10462 10463 10464 10465 10466 10467 10468 10469 10470 10471 10472 10473 10474 10475 10476 10477 10478 10479 10480 10481 10482 10483 10484 10485 10486 10487 10488 10489 10490 10491 10492 10493 10494 10495 10496 10497 10498 10499 10500 10501 10502 10503 10504 10505 10506 10507 10508 10509 10510 10511 10512 10513 10514 10515 10516 10517 10518 10519 10520 10521 10522 10523 10524 10525 10526 10527 10528 10529 10530 10531 10532 10533 10534 10535 10536 10537 10538 10539 10540 10541 10542 10543 10544 10545 10546 10547 10548 10549 10550 10551 10552 10553 10554 10555 10556 10557 10558 10559 10560 10561 10562 10563 10564 10565 10566 10567 10568 10569 10570 10571 10572 10573 10574 10575 10576 10577 10578 10579 10580 10581 10582 10583 10584 10585 10586 10587 10588 10589 10590 10591 10592 10593 10594 10595 10596 10597 10598 10599 10600 10601 10602 10603 10604 10605 10606 10607 10608 10609 10610 10611 10612 10613 10614 10615 10616 10617 10618 10619 10620 10621 10622 10623 10624 10625 10626 10627 10628 10629 10630 10631 10632 10633 10634 10635 10636 10637 10638 10639 10640 10641 10642 10643 10644 10645 10646 10647 10648 10649 10650 10651 10652 10653 10654 10655 10656 10657 10658 10659 10660 10661 10662 10663 10664 10665 10666 10667 10668 10669 10670 10671 10672 10673 10674 10675 10676 10677 10678 10679 10680 10681 10682 10683 10684 10685 10686 10687 10688 10689 10690 10691 10692 10693 10694 10695 10696 10697 10698 10699 10700 10701 10702 10703 10704 10705 10706 10707 10708 10709 10710 10711 10712 10713 10714 10715 10716 10717 10718 10719 10720 10721 10722 10723 10724 10725 10726 10727 10728 10729 10730 10731 10732 10733 10734 10735 10736 10737 10738 10739 10740 10741 10742 10743 10744 10745 10746 10747 10748 10749 10750 10751 10752 10753 10754 10755 10756 10757 10758 10759 10760 10761 10762 10763 10764 10765 10766 10767 10768 10769 10770 10771 10772 10773 10774 10775 10776 10777 10778 10779 10780 10781 10782 10783 10784 10785 10786 10787 10788 10789 10790 10791 10792 10793 10794 10795 10796 10797 10798 10799 10800 10801 10802 10803 10804 10805 10806 10807 10808 10809 10810 10811 10812 10813 10814 10815 10816 10817 10818 10819 10820 10821 10822 10823 10824 10825 10826 10827 10828 10829 10830 10831 10832 10833 10834 10835 10836 10837 10838 10839 10840 10841 10842 10843 10844 10845 10846 10847 10848 10849 10850 10851 10852 10853 10854 10855 10856 10857 10858 10859 10860 10861 10862 10863 10864 10865 10866 10867 10868 10869 10870 10871 10872 10873 10874 10875 10876 10877 10878 10879 10880 10881 10882 10883 10884 10885 10886 10887 10888 10889 10890 10891 10892 10893 10894 10895 10896 10897 10898 10899 10900 10901 10902 10903 10904 10905 10906 10907 10908 10909 10910 10911 10912 10913 10914 10915 10916 10917 10918 10919 10920 10921 10922 10923 10924 10925 10926 10927 10928 10929 10930 10931 10932 10933 10934 10935 10936 10937 10938 10939 10940 10941 10942 10943 10944 10945 10946 10947 10948 10949 10950 10951 10952 10953 10954 10955 10956 10957 10958 10959 10960 10961 10962 10963 10964 10965 10966 10967 10968 10969 10970 10971 10972 10973 10974 10975 10976 10977 10978 10979 10980 10981 10982 10983 10984 10985 10986 10987 10988 10989 10990 10991 10992 10993 10994 10995 10996 10997 10998 10999 11000 11001 11002 11003 11004 11005 11006 11007 11008 11009 11010 11011 11012 11013 11014 11015 11016 11017 11018 11019 11020 11021 11022 11023 11024 11025 11026 11027 11028 11029 11030 11031 11032 11033 11034 11035 11036 11037 11038 11039 11040 11041 11042 11043 11044 11045 11046 11047 11048 11049 11050 11051 11052 11053 11054 11055 11056 11057 11058 11059 11060 11061 11062 11063 11064 11065 11066 11067 11068 11069 11070 11071 11072 11073 11074 11075 11076 11077 11078 11079 11080 11081 11082 11083 11084 11085 11086 11087 11088 11089 11090 11091 11092 11093 11094 11095 11096 11097 11098 11099 11100 11101 11102 11103 11104 11105 11106 11107 11108 11109 11110 11111 11112 11113 11114 11115 11116 11117 11118 11119 11120 11121 11122 11123 11124 11125 11126 11127 11128 11129 11130 11131 11132 11133 11134 11135 11136 11137 11138 11139 11140 11141 11142 11143 11144 11145 11146 11147 11148 11149 11150 11151 11152 11153 11154 11155 11156 11157 11158 11159 11160 11161 11162 11163 11164 11165 11166 11167 11168 11169 11170 11171 11172 11173 11174 11175 11176 11177 11178 11179 11180 11181 11182 11183 11184 11185 11186 11187 11188 11189 11190 11191 11192 11193 11194 11195 11196 11197 11198 11199 11200 11201 11202 11203 11204 11205 11206 11207 11208 11209 11210 11211 11212 11213 11214 11215 11216 11217 11218 11219 11220 11221 11222 11223 11224 11225 11226 11227 11228 11229 11230 11231 11232 11233 11234 11235 11236 11237 11238 11239 11240 11241 11242 11243 11244 11245 11246 11247 11248 11249 11250 11251 11252 11253 11254 11255 11256 11257 11258 11259 11260 11261 11262 11263 11264 11265 11266 11267 11268 11269 11270 11271 11272 11273 11274 11275 11276 11277 11278 11279 11280 11281 11282 11283 11284 11285 11286 11287 11288 11289 11290 11291 11292 11293 11294 11295 11296 11297 11298 11299 11300 11301 11302 11303 11304 11305 11306 11307 11308 11309 11310 11311 11312 11313 11314 11315 11316 11317 11318 11319 11320 11321 11322 11323 11324 11325 11326 11327 11328 11329 11330 11331 11332 11333 11334 11335 11336 11337 11338 11339 11340 11341 11342 11343 11344 11345 11346 11347 11348 11349 11350 11351 11352 11353 11354 11355 11356 11357 11358 11359 11360 11361 11362 11363 11364 11365 11366 11367 11368 11369 11370 11371 11372 11373 11374 11375 11376 11377 11378 11379 11380 11381 11382 11383 11384 11385 11386 11387 11388 11389 11390 11391 11392 11393 11394 11395 11396 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408 11409 11410 11411 11412 11413 11414 11415 11416 11417 11418 11419 11420 11421 11422 11423 11424 11425 11426 11427 11428 11429 11430 11431 11432 11433 11434 11435 11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11449 11450 11451 11452 11453 11454 11455 11456 11457 11458 11459 11460 11461 11462 11463 11464 11465 11466 11467 11468 11469 11470 11471 11472 11473 11474 11475 11476 11477 11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11488 11489 11490 11491 11492 11493 11494 11495 11496 11497 11498 11499 11500 11501 11502 11503 11504 11505 11506 11507 11508 11509 11510 11511 11512 11513 11514 11515 11516 11517 11518 11519 11520 11521 11522 11523 11524 11525 11526 11527 11528 11529 11530 11531 11532 11533 11534 11535 11536 11537 11538 11539 11540 11541 11542 11543 11544 11545 11546 11547 11548 11549 11550 11551 11552 11553 11554 11555 11556 11557 11558 11559 11560 11561 11562 11563 11564 11565 11566 11567 11568 11569 11570 11571 11572 11573 11574 11575 11576 11577 11578 11579 11580 11581 11582 11583 11584 11585 11586 11587 11588 11589 11590 11591 11592 11593 11594 11595 11596 11597 11598 11599 11600 11601 11602 11603 11604 11605 11606 11607 11608 11609 11610 11611 11612 11613 11614 11615 11616 11617 11618 11619 11620 11621 11622 11623 11624 11625 11626 11627 11628 11629 11630 11631 11632 11633 11634 11635 11636 11637 11638 11639 11640 11641 11642 11643 11644 11645 11646 11647 11648 11649 11650 11651 11652 11653 11654 11655 11656 11657 11658 11659 11660 11661 11662 11663 11664 11665 11666 11667 11668 11669 11670 11671 11672 11673 11674 11675 11676 11677 11678 11679 11680 11681 11682 11683 11684 11685 11686 11687 11688 11689 11690 11691 11692 11693 11694 11695 11696 11697 11698 11699 11700 11701 11702 11703 11704 11705 11706 11707 11708 11709 11710 11711 11712 11713 11714 11715 11716 11717 11718 11719 11720 11721 11722 11723 11724 11725 11726 11727 11728 11729 11730 11731 11732 11733 11734 11735 11736 11737 11738 11739 11740 11741 11742 11743 11744 11745 11746 11747 11748 11749 11750 11751 11752 11753 11754 11755 11756 11757 11758 11759 11760 11761 11762 11763 11764 11765 11766 11767 11768 11769 11770 11771 11772 11773 11774 11775 11776 11777 11778 11779 11780 11781 11782 11783 11784 11785 11786 11787 11788 11789 11790 11791 11792 11793 11794 11795 11796 11797 11798 11799 11800 11801 11802 11803 11804 11805 11806 11807 11808 11809 11810 11811 11812 11813 11814 11815 11816 11817 11818 11819 11820 11821 11822 11823 11824 11825 11826 11827 11828 11829 11830 11831 11832 11833 11834 11835 11836 11837 11838 11839 11840 11841 11842 11843 11844 11845 11846 11847 11848 11849 11850 11851 11852 11853 11854 11855 11856 11857 11858 11859 11860 11861 11862 11863 11864 11865 11866 11867 11868 11869 11870 11871 11872 11873 11874 11875 11876 11877 11878 11879 11880 11881 11882 11883 11884 11885 11886 11887 11888 11889 11890 11891 11892 11893 11894 11895 11896 11897 11898 11899 11900 11901 11902 11903 11904 11905 11906 11907 11908 11909 11910 11911 11912 11913 11914 11915 11916 11917 11918 11919 11920 11921 11922 11923 11924 11925 11926 11927 11928 11929 11930 11931 11932 11933 11934 11935 11936 11937 11938 11939 11940 11941 11942 11943 11944 11945 11946 11947 11948 11949 11950 11951 11952 11953 11954 11955 11956 11957 11958 11959 11960 11961 11962 11963 11964 11965 11966 11967 11968 11969 11970 11971 11972 11973 11974 11975 11976 11977 11978 11979 11980 11981 11982 11983 11984 11985 11986 11987 11988 11989 11990 11991 11992 11993 11994 11995 11996 11997 11998 11999 12000 12001 12002 12003 12004 12005 12006 12007 12008 12009 12010 12011 12012 12013 12014 12015 12016 12017 12018 12019 12020 12021 12022 12023 12024 12025 12026 12027 12028 12029 12030 12031 12032 12033 12034 12035 12036 12037 12038 12039 12040 12041 12042 12043 12044 12045 12046 12047 12048 12049 12050 12051 12052 12053 12054 12055 12056 12057 12058 12059 12060 12061 12062 12063 12064 12065 12066 12067 12068 12069 12070 12071 12072 12073 12074 12075 12076 12077 12078 12079 12080 12081 12082 12083 12084 12085 12086 12087 12088 12089 12090 12091 12092 12093 12094 12095 12096 12097 12098 12099 12100 12101 12102 12103 12104 12105 12106 12107 12108 12109 12110 12111 12112 12113 12114 12115 12116 12117 12118 12119 12120 12121 12122 12123 12124 12125 12126 12127 12128 12129 12130 12131 12132 12133 12134 12135 12136 12137 12138 12139 12140 12141 12142 12143 12144 12145 12146 12147 12148 12149 12150 12151 12152 12153 12154 12155 12156 12157 12158 12159 12160 12161 12162 12163 12164 12165 12166 12167 12168 12169 12170 12171 12172 12173 12174 12175 12176 12177 12178 12179 12180 12181 12182 12183 12184 12185 12186 12187 12188 12189 12190 12191 12192 12193 12194 12195 12196 12197 12198 12199 12200 12201 12202 12203 12204 12205 12206 12207 12208 12209 12210 12211 12212 12213 12214 12215 12216 12217 12218 12219 12220 12221 12222 12223 12224 12225 12226 12227 12228 12229 12230 12231 12232 12233 12234 12235 12236 12237 12238 12239 12240 12241 12242 12243 12244 12245 12246 12247 12248 12249 12250 12251 12252 12253 12254 12255 12256 12257 12258 12259 12260 12261 12262 12263 12264 12265 12266 12267 12268 12269 12270 12271 12272 12273 12274 12275 12276 12277 12278 12279 12280 12281 12282 12283 12284 12285 12286 12287 12288 12289 12290 12291 12292 12293 12294 12295 12296 12297 12298 12299 12300 12301 12302 12303 12304 12305 12306 12307 12308 12309 12310 12311 12312 12313 12314 12315 12316 12317 12318 12319 12320 12321 12322 12323 12324 12325 12326 12327 12328 12329 12330 12331 12332 12333 12334 12335 12336 12337 12338 12339 12340 12341 12342 12343 12344 12345 12346 12347 12348 12349 12350 12351 12352 12353 12354 12355 12356 12357 12358 12359 12360 12361 12362 12363 12364 12365 12366 12367 12368 12369 12370 12371 12372 12373 12374 12375 12376 12377 12378 12379 12380 12381 12382 12383 12384 12385 12386 12387 12388 12389 12390 12391 12392 12393 12394 12395 12396 12397 12398 12399 12400 12401 12402 12403 12404 12405 12406 12407 12408 12409 12410 12411 12412 12413 12414 12415 12416 12417 12418 12419 12420 12421 12422 12423 12424 12425 12426 12427 12428 12429 12430 12431 12432 12433 12434 12435 12436 12437 12438 12439 12440 12441 12442 12443 12444 12445 12446 12447 12448 12449 12450 12451 12452 12453 12454 12455 12456 12457 12458 12459 12460 12461 12462 12463 12464 12465 12466 12467 12468 12469 12470 12471 12472 12473 12474 12475 12476 12477 12478 12479 12480 12481 12482 12483 12484 12485 12486 12487 12488 12489 12490 12491 12492 12493 12494 12495 12496 12497 12498 12499 12500 12501 12502 12503 12504 12505 12506 12507 12508 12509 12510 12511 12512 12513 12514 12515 12516 12517 12518 12519 12520 12521 12522 12523 12524 12525 12526 12527 12528 12529 12530 12531 12532 12533 12534 12535 12536 12537 12538 12539 12540 12541 12542 12543 12544 12545 12546 12547 12548 12549 12550 12551 12552 12553 12554 12555 12556 12557 12558 12559 12560 12561 12562 12563 12564 12565 12566 12567 12568 12569 12570 12571 12572 12573 12574 12575 12576 12577 12578 12579 12580 12581 12582 12583 12584 12585 12586 12587 12588 12589 12590 12591 12592 12593 12594 12595 12596 12597 12598 12599 12600 12601 12602 12603 12604 12605 12606 12607 12608 12609 12610 12611 12612 12613 12614 12615 12616 12617 12618 12619 12620 12621 12622 12623 12624 12625 12626 12627 12628 12629 12630 12631 12632 12633 12634 12635 12636 12637 12638 12639 12640 12641 12642 12643 12644 12645 12646 12647 12648 12649 12650 12651 12652 12653 12654 12655 12656 12657 12658 12659 12660 12661 12662 12663 12664 12665 12666 12667 12668 12669 12670 12671 12672 12673 12674 12675 12676 12677 12678 12679 12680 12681 12682 12683 12684 12685 12686 12687 12688 12689 12690 12691 12692 12693 12694 12695 12696 12697 12698 12699 12700 12701 12702 12703 12704 12705 12706 12707 12708 12709 12710 12711 12712 12713 12714 12715 12716 12717 12718 12719 12720 12721 12722 12723 12724 12725 12726 12727 12728 12729 12730 12731 12732 12733 12734 12735 12736 12737 12738 12739 12740 12741 12742 12743 12744 12745 12746 12747 12748 12749 12750 12751 12752 12753 12754 12755 12756 12757 12758 12759 12760 12761 12762 12763 12764 12765 12766 12767 12768 12769 12770 12771 12772 12773 12774 12775 12776 12777 12778 12779 12780 12781 12782 12783 12784 12785 12786 12787 12788 12789 12790 12791 12792 12793 12794 12795 12796 12797 12798 12799 12800 12801 12802 12803 12804 12805 12806 12807 12808 12809 12810 12811 12812 12813 12814 12815 12816 12817 12818 12819 12820 12821 12822 12823 12824 12825 12826 12827 12828 12829 12830 12831 12832 12833 12834 12835 12836 12837 12838 12839 12840 12841 12842 12843 12844 12845 12846 12847 12848 12849 12850 12851 12852 12853 12854 12855 12856 12857 12858 12859 12860 12861 12862 12863 12864 12865 12866 12867 12868 12869 12870 12871 12872 12873 12874 12875 12876 12877 12878 12879 12880 12881 12882 12883 12884 12885 12886 12887 12888 12889 12890 12891 12892 12893 12894 12895 12896 12897 12898 12899 12900 12901 12902 12903 12904 12905 12906 12907 12908 12909 12910 12911 12912 12913 12914 12915 12916 12917 12918 12919 12920 12921 12922 12923 12924 12925 12926 12927 12928 12929 12930 12931 12932 12933 12934 12935 12936 12937 12938 12939 12940 12941 12942 12943 12944 12945 12946 12947 12948 12949 12950 12951 12952 12953 12954 12955 12956 12957 12958 12959 12960 12961 12962 12963 12964 12965 12966 12967 12968 12969 12970 12971 12972 12973 12974 12975 12976 12977 12978 12979 12980 12981 12982 12983 12984 12985 12986 12987 12988 12989 12990 12991 12992 12993 12994 12995 12996 12997 12998 12999 13000 13001 13002 13003 13004 13005 13006 13007 13008 13009 13010 13011 13012 13013 13014 13015 13016 13017 13018 13019 13020 13021 13022 13023 13024 13025 13026 13027 13028 13029 13030 13031 13032 13033 13034 13035 13036 13037 13038 13039 13040 13041 13042 13043 13044 13045 13046 13047 13048 13049 13050 13051 13052 13053 13054 13055 13056 13057 13058 13059 13060 13061 13062 13063 13064 13065 13066 13067 13068 13069 13070 13071 13072 13073 13074 13075 13076 13077 13078 13079 13080 13081 13082 13083 13084 13085 13086 13087 13088 13089 13090 13091 13092 13093 13094 13095 13096 13097 13098 13099 13100 13101 13102 13103 13104 13105 13106 13107 13108 13109 13110 13111 13112 13113 13114 13115 13116 13117 13118 13119 13120 13121 13122 13123 13124 13125 13126 13127 13128 13129 13130 13131 13132 13133 13134 13135 13136 13137 13138 13139 13140 13141 13142 13143 13144 13145 13146 13147 13148 13149 13150 13151 13152 13153 13154 13155 13156 13157 13158 13159 13160 13161 13162 13163 13164 13165 13166 13167 13168 13169 13170 13171 13172 13173 13174 13175 13176 13177 13178 13179 13180 13181 13182 13183 13184 13185 13186 13187 13188 13189 13190 13191 13192 13193 13194 13195 13196 13197 13198 13199 13200 13201 13202 13203 13204 13205 13206 13207 13208 13209 13210 13211 13212 13213 13214 13215 13216 13217 13218 13219 13220 13221 13222 13223 13224 13225 13226 13227 13228 13229 13230 13231 13232 13233 13234 13235 13236 13237 13238 13239 13240 13241 13242 13243 13244 13245 13246 13247 13248 13249 13250 13251 13252 13253 13254 13255 13256 13257 13258 13259 13260 13261 13262 13263 13264 13265 13266 13267 13268 13269 13270 13271 13272 13273 13274 13275 13276 13277 13278 13279 13280 13281 13282 13283 13284 13285 13286 13287 13288 13289 13290 13291 13292 13293 13294 13295 13296 13297 13298 13299 13300 13301 13302 13303 13304 13305 13306 13307 13308 13309 13310 13311 13312 13313 13314 13315 13316 13317 13318 13319 13320 13321 13322 13323 13324 13325 13326 13327 13328 13329 13330 13331 13332 13333 13334 13335 13336 13337 13338 13339 13340 13341 13342 13343 13344 13345 13346 13347 13348 13349 13350 13351 13352 13353 13354 13355 13356 13357 13358 13359 13360 13361 13362 13363 13364 13365 13366 13367 13368 13369 13370 13371 13372 13373 13374 13375 13376 13377 13378 13379 13380 13381 13382 13383 13384 13385 13386 13387 13388 13389 13390 13391 13392 13393 13394 13395 13396 13397 13398 13399 13400 13401 13402 13403 13404 13405 13406 13407 13408 13409 13410 13411 13412 13413 13414 13415 13416 13417 13418 13419 13420 13421 13422 13423 13424 13425 13426 13427 13428 13429 13430 13431 13432 13433 13434 13435 13436 13437 13438 13439 13440 13441 13442 13443 13444 13445 13446 13447 13448 13449 13450 13451 13452 13453 13454 13455 13456 13457 13458 13459 13460 13461 13462 13463 13464 13465 13466 13467 13468 13469 13470 13471 13472 13473 13474 13475 13476 13477 13478 13479 13480 13481 13482 13483 13484 13485 13486 13487 13488 13489 13490 13491 13492 13493 13494 13495 13496 13497 13498 13499 13500 13501 13502 13503 13504 13505 13506 13507 13508 13509 13510 13511 13512 13513 13514 13515 13516 13517 13518 13519 13520 13521 13522 13523 13524 13525 13526 13527 13528 13529 13530 13531 13532 13533 13534 13535 13536 13537 13538 13539 13540 13541 13542 13543 13544 13545 13546 13547 13548 13549 13550 13551 13552 13553 13554 13555 13556 13557 13558 13559 13560 13561 13562 13563 13564 13565 13566 13567 13568 13569 13570 13571 13572 13573 13574 13575 13576 13577 13578 13579 13580 13581 13582 13583 13584 13585 13586 13587 13588 13589 13590 13591 13592 13593 13594 13595 13596 13597 13598 13599 13600 13601 13602 13603 13604 13605 13606 13607 13608 13609 13610 13611 13612 13613 13614 13615 13616 13617 13618 13619 13620 13621 13622 13623 13624 13625 13626 13627 13628 13629 13630 13631 13632 13633 13634 13635 13636 13637 13638 13639 13640 13641 13642 13643 13644 13645 13646 13647 13648 13649 13650 13651 13652 13653 13654 13655 13656 13657 13658 13659 13660 13661 13662 13663 13664 13665 13666 13667 13668 13669 13670 13671 13672 13673 13674 13675 13676 13677 13678 13679 13680 13681 13682 13683 13684 13685 13686 13687 13688 13689 13690 13691 13692 13693 13694 13695 13696 13697 13698 13699 13700 13701 13702 13703 13704 13705 13706 13707 13708 13709 13710 13711 13712 13713 13714 13715 13716 13717 13718 13719 13720 13721 13722 13723 13724 13725 13726 13727 13728 13729 13730 13731 13732 13733 13734 13735 13736 13737 13738 13739 13740 13741 13742 13743 13744 13745 13746 13747 13748 13749 13750 13751 13752 13753 13754 13755 13756 13757 13758 13759 13760 13761 13762 13763 13764 13765 13766 13767 13768 13769 13770 13771 13772 13773 13774 13775 13776 13777 13778 13779 13780 13781 13782 13783 13784 13785 13786 13787 13788 13789 13790 13791 13792 13793 13794 13795 13796 13797 13798 13799 13800 13801 13802 13803 13804 13805 13806 13807 13808 13809 13810 13811 13812 13813 13814 13815 13816 13817 13818 13819 13820 13821 13822 13823 13824 13825 13826 13827 13828 13829 13830 13831 13832 13833 13834 13835 13836 13837 13838 13839 13840 13841 13842 13843 13844 13845 13846 13847 13848 13849 13850 13851 13852 13853 13854 13855 13856 13857 13858 13859 13860 13861 13862 13863 13864 13865 13866 13867 13868 13869 13870 13871 13872 13873 13874 13875 13876 13877 13878 13879 13880 13881 13882 13883 13884 13885 13886 13887 13888 13889 13890 13891 13892 13893 13894 13895 13896 13897 13898 13899 13900 13901 13902 13903 13904 13905 13906 13907 13908 13909 13910 13911 13912 13913 13914 13915 13916 13917 13918 13919 13920 13921 13922 13923 13924 13925 13926 13927 13928 13929 13930 13931 13932 13933 13934 13935 13936 13937 13938 13939 13940 13941 13942 13943 13944 13945 13946 13947 13948 13949 13950 13951 13952 13953 13954 13955 13956 13957 13958 13959 13960 13961 13962 13963 13964 13965 13966 13967 13968 13969 13970 13971 13972 13973 13974 13975 13976 13977 13978 13979 13980 13981 13982 13983 13984 13985 13986 13987 13988 13989 13990 13991 13992 13993 13994 13995 13996 13997 13998 13999 14000 14001 14002 14003 14004 14005 14006 14007 14008 14009 14010 14011 14012 14013 14014 14015 14016 14017 14018 14019 14020 14021 14022 14023 14024 14025 14026 14027 14028 14029 14030 14031 14032 14033 14034 14035 14036 14037 14038 14039 14040 14041 14042 14043 14044 14045 14046 14047 14048 14049 14050 14051 14052 14053 14054 14055 14056 14057 14058 14059 14060 14061 14062 14063 14064 14065 14066 14067 14068 14069 14070 14071 14072 14073 14074 14075 14076 14077 14078 14079 14080 14081 14082 14083 14084 14085 14086 14087 14088 14089 14090 14091 14092 14093 14094 14095 14096 14097 14098 14099 14100 14101 14102 14103 14104 14105 14106 14107 14108 14109 14110 14111 14112 14113 14114 14115 14116 14117 14118 14119 14120 14121 14122 14123 14124 14125 14126 14127 14128 14129 14130 14131 14132 14133 14134 14135 14136 14137 14138 14139 14140 14141 14142 14143 14144 14145 14146 14147 14148 14149 14150 14151 14152 14153 14154 14155 14156 14157 14158 14159 14160 14161 14162 14163 14164 14165 14166 14167 14168 14169 14170 14171 14172 14173 14174 14175 14176 14177 14178 14179 14180 14181 14182 14183 14184 14185 14186 14187 14188 14189 14190 14191 14192 14193 14194 14195 14196 14197 14198 14199 14200 14201 14202 14203 14204 14205 14206 14207 14208 14209 14210 14211 14212 14213 14214 14215 14216 14217 14218 14219 14220 14221 14222 14223 14224 14225 14226 14227 14228 14229 14230 14231 14232 14233 14234 14235 14236 14237 14238 14239 14240 14241 14242 14243 14244 14245 14246 14247 14248 14249 14250 14251 14252 14253 14254 14255 14256 14257 14258 14259 14260 14261 14262 14263 14264 14265 14266 14267 14268 14269 14270 14271 14272 14273 14274 14275 14276 14277 14278 14279 14280 14281 14282 14283 14284 14285 14286 14287 14288 14289 14290 14291 14292 14293 14294 14295 14296 14297 14298 14299 14300 14301 14302 14303 14304 14305 14306 14307 14308 14309 14310 14311 14312 14313 14314 14315 14316 14317 14318 14319 14320 14321 14322 14323 14324 14325 14326 14327 14328 14329 14330 14331 14332 14333 14334 14335 14336 14337 14338 14339 14340 14341 14342 14343 14344 14345 14346 14347 14348 14349 14350 14351 14352 14353 14354 14355 14356 14357 14358 14359 14360 14361 14362 14363 14364 14365 14366 14367 14368 14369 14370 14371 14372 14373 14374 14375 14376 14377 14378 14379 14380 14381 14382 14383 14384 14385 14386 14387 14388 14389 14390 14391 14392 14393 14394 14395 14396 14397 14398 14399 14400 14401 14402 14403 14404 14405 14406 14407 14408 14409 14410 14411 14412 14413 14414 14415 14416 14417 14418 14419 14420 14421 14422 14423 14424 14425 14426 14427 14428 14429 14430 14431 14432 14433 14434 14435 14436 14437 14438 14439 14440 14441 14442 14443 14444 14445 14446 14447 14448 14449 14450 14451 14452 14453 14454 14455 14456 14457 14458 14459 14460 14461 14462 14463 14464 14465 14466 14467 14468 14469 14470 14471 14472 14473 14474 14475 14476 14477 14478 14479 14480 14481 14482 14483 14484 14485 14486 14487 14488 14489 14490 14491 14492 14493 14494 14495 14496 14497 14498 14499 14500 14501 14502 14503 14504 14505 14506 14507 14508 14509 14510 14511 14512 14513 14514 14515 14516 14517 14518 14519 14520 14521 14522 14523 14524 14525 14526 14527 14528 14529 14530 14531 14532 14533 14534 14535 14536 14537 14538 14539 14540 14541 14542 14543 14544 14545 14546 14547 14548 14549 14550 14551 14552 14553 14554 14555 14556 14557 14558 14559 14560 14561 14562 14563 14564 14565 14566 14567 14568 14569 14570 14571 14572 14573 14574 14575 14576 14577 14578 14579 14580 14581 14582 14583 14584 14585 14586 14587 14588 14589 14590 14591 14592 14593 14594 14595 14596 14597 14598 14599 14600 14601 14602 14603 14604 14605 14606 14607 14608 14609 14610 14611 14612 14613 14614 14615 14616 14617 14618 14619 14620 14621 14622 14623 14624 14625 14626 14627 14628 14629 14630 14631 14632 14633 14634 14635 14636 14637 14638 14639 14640 14641 14642 14643 14644 14645 14646 14647 14648 14649 14650 14651 14652 14653 14654 14655 14656 14657 14658 14659 14660 14661 14662 14663 14664 14665 14666 14667 14668 14669 14670 14671 14672 14673 14674 14675 14676 14677 14678 14679 14680 14681 14682 14683 14684 14685 14686 14687 14688 14689 14690 14691 14692 14693 14694 14695 14696 14697 14698 14699 14700 14701 14702 14703 14704 14705 14706 14707 14708 14709 14710 14711 14712 14713 14714 14715 14716 14717 14718 14719 14720 14721 14722 14723 14724 14725 14726 14727 14728 14729 14730 14731 14732 14733 14734 14735 14736 14737 14738 14739 14740 14741 14742 14743 14744 14745 14746 14747 14748 14749 14750 14751 14752 14753 14754 14755 14756 14757 14758 14759 14760 14761 14762 14763 14764 14765 14766 14767 14768 14769 14770 14771 14772 14773 14774 14775 14776 14777 14778 14779 14780 14781 14782 14783 14784 14785 14786 14787 14788 14789 14790 14791 14792 14793 14794 14795 14796 14797 14798 14799 14800 14801 14802 14803 14804 14805 14806 14807 14808 14809 14810 14811 14812 14813 14814 14815 14816 14817 14818 14819 14820 14821 14822 14823 14824 14825 14826 14827 14828 14829 14830 14831 14832 14833 14834 14835 14836 14837 14838 14839 14840 14841 14842 14843 14844 14845 14846 14847 14848 14849 14850 14851 14852 14853 14854 14855 14856 14857 14858 14859 14860 14861 14862 14863 14864 14865 14866 14867 14868 14869 14870 14871 14872 14873 14874 14875 14876 14877 14878 14879 14880 14881 14882 14883 14884 14885 14886 14887 14888 14889 14890 14891 14892 14893 14894 14895 14896 14897 14898 14899 14900 14901 14902 14903 14904 14905 14906 14907 14908 14909 14910 14911 14912 14913 14914 14915 14916 14917 14918 14919 14920 14921 14922 14923 14924 14925 14926 14927 14928 14929 14930 14931 14932 14933 14934 14935 14936 14937 14938 14939 14940 14941 14942 14943 14944 14945 14946 14947 14948 14949 14950 14951 14952 14953 14954 14955 14956 14957 14958 14959 14960 14961 14962 14963 14964 14965 14966 14967 14968 14969 14970 14971 14972 14973 14974 14975 14976 14977 14978 14979 14980 14981 14982 14983 14984 14985 14986 14987 14988 14989 14990 14991 14992 14993 14994 14995 14996 14997 14998 14999 15000 15001 15002 15003 15004 15005 15006 15007 15008 15009 15010 15011 15012 15013 15014 15015 15016 15017 15018 15019 15020 15021 15022 15023 15024 15025 15026 15027 15028 15029 15030 15031 15032 15033 15034 15035 15036 15037 15038 15039 15040 15041 15042 15043 15044 15045 15046 15047 15048 15049 15050 15051 15052 15053 15054 15055 15056 15057 15058 15059 15060 15061 15062 15063 15064 15065 15066 15067 15068 15069 15070 15071 15072 15073 15074 15075 15076 15077 15078 15079 15080 15081 15082 15083 15084 15085 15086 15087 15088 15089 15090 15091 15092 15093 15094 15095 15096 15097 15098 15099 15100 15101 15102 15103 15104 15105 15106 15107 15108 15109 15110 15111 15112 15113 15114 15115 15116 15117 15118 15119 15120 15121 15122 15123 15124 15125 15126 15127 15128 15129 15130 15131 15132 15133 15134 15135 15136 15137 15138 15139 15140 15141 15142 15143 15144 15145 15146 15147 15148 15149 15150 15151 15152 15153 15154 15155 15156 15157 15158 15159 15160 15161 15162 15163 15164 15165 15166 15167 15168 15169 15170 15171 15172 15173 15174 15175 15176 15177 15178 15179 15180 15181 15182 15183 15184 15185 15186 15187 15188 15189 15190 15191 15192 15193 15194 15195 15196 15197 15198 15199 15200 15201 15202 15203 15204 15205 15206 15207 15208 15209 15210 15211 15212 15213 15214 15215 15216 15217 15218 15219 15220 15221 15222 15223 15224 15225 15226 15227 15228 15229 15230 15231 15232 15233 15234 15235 15236 15237 15238 15239 15240 15241 15242 15243 15244 15245 15246 15247 15248 15249 15250 15251 15252 15253 15254 15255 15256 15257 15258 15259 15260 15261 15262 15263 15264 15265 15266 15267 15268 15269 15270 15271 15272 15273 15274 15275 15276 15277 15278 15279 15280 15281 15282 15283 15284 15285 15286 15287 15288 15289 15290 15291 15292 15293 15294 15295 15296 15297 15298 15299 15300 15301 15302 15303 15304 15305 15306 15307 15308 15309 15310 15311 15312 15313 15314 15315 15316 15317 15318 15319 15320 15321 15322 15323 15324 15325 15326 15327 15328 15329 15330 15331 15332 15333 15334 15335 15336 15337 15338 15339 15340 15341 15342 15343 15344 15345 15346 15347 15348 15349 15350 15351 15352 15353 15354 15355 15356 15357 15358 15359 15360 15361 15362 15363 15364 15365 15366 15367 15368 15369 15370 15371 15372 15373 15374 15375 15376 15377 15378 15379 15380 15381 15382 15383 15384 15385 15386 15387 15388 15389 15390 15391 15392 15393 15394 15395 15396 15397 15398 15399 15400 15401 15402 15403 15404 15405 15406 15407 15408 15409 15410 15411 15412 15413 15414 15415 15416 15417 15418 15419 15420 15421 15422 15423 15424 15425 15426 15427 15428 15429 15430 15431 15432 15433 15434 15435 15436 15437 15438 15439 15440 15441 15442 15443 15444 15445 15446 15447 15448 15449 15450 15451 15452 15453 15454 15455 15456
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * Copyright by the Board of Trustees of the University of Illinois.         *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF5.  The full HDF5 copyright notice, including     *
 * terms governing use, modification, and redistribution, is contained in    *
 * the COPYING file, which can be found at the root of the source code       *
 * distribution tree, or in https://www.hdfgroup.org/licenses.               *
 * If you do not have access to either file, you may request a copy from     *
 * help@hdfgroup.org.                                                        *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/*
 * Programmer:    Robb Matzke
 *        Tuesday, December  9, 1997
 *
 * Purpose:    Tests the dataset interface (H5D)
 */
#define H5D_FRIEND /*suppress error about including H5Dpkg      */
#define H5D_TESTING
#define H5FD_FRIEND /*suppress error about including H5FDpkg      */
#define H5FD_TESTING

#define H5Z_FRIEND /*suppress error about including H5Zpkg      */

#include "testhdf5.h"
#include "H5srcdir.h"

#include "H5CXprivate.h" /* API Contexts                         */
#include "H5Iprivate.h"
#include "H5Pprivate.h"

#define H5F_FRIEND /*suppress error about including H5Fpkg */
#define H5F_TESTING
#include "H5Fpkg.h" /* File access                          */

#define H5S_FRIEND  /*suppress error about including H5Spkg */
#include "H5Spkg.h" /* Dataspace                            */

#define H5T_FRIEND  /*suppress error about including H5Tpkg */
#include "H5Tpkg.h" /* Datatype                             */

#define H5A_FRIEND  /*suppress error about including H5Apkg     */
#include "H5Apkg.h" /* Attributes                   */

/* Use in version bound test */
#define H5O_FRIEND  /*suppress error about including H5Opkg */
#include "H5Opkg.h" /* Object headers                       */

#include "H5Dpkg.h"
#include "H5FDpkg.h"
#include "H5VMprivate.h"
#include "H5Zpkg.h"
#ifdef H5_HAVE_SZLIB_H
#include "szlib.h"
#endif

const char *FILENAME[] = {"dataset",             /* 0 */
                          "compact_dataset",     /* 1 */
                          "dset_offset",         /* 2 */
                          "max_compact_dataset", /* 3 */
                          "simple",              /* 4 */
                          "set_local",           /* 5 */
                          "random_chunks",       /* 6 */
                          "huge_chunks",         /* 7 */
                          "chunk_cache",         /* 8 */
                          "big_chunk",           /* 9 */
                          "chunk_fast",          /* 10 */
                          "chunk_expand",        /* 11 */
                          "chunk_fixed",         /* 12 */
                          "copy_dcpl_newfile",   /* 13 */
                          "partial_chunks",      /* 14 */
                          "layout_extend",       /* 15 */
                          "zero_chunk",          /* 16 */
                          "chunk_single",        /* 17 */
                          "swmr_non_latest",     /* 18 */
                          "earray_hdr_fd",       /* 19 */
                          "farray_hdr_fd",       /* 20 */
                          "bt2_hdr_fd",          /* 21 */
                          "storage_size",        /* 22 */
                          "dls_01_strings",      /* 23 */
                          "power2up",            /* 24 */
                          "version_bounds",      /* 25 */
                          "alloc_0sized",        /* 26 */
                          NULL};

#define OHMIN_FILENAME_A "ohdr_min_a"

#define FILENAME_BUF_SIZE 1024
#define KB                1024

#define FILE_DEFLATE_NAME "deflate.h5"

/* Dataset names for testing filters */
#define DSET_DEFAULT_NAME         "default"
#define DSET_CHUNKED_NAME         "chunked"
#define DSET_COMPACT_NAME         "compact"
#define DSET_SIMPLE_IO_NAME       "simple_io"
#define DSET_USERBLOCK_IO_NAME    "userblock_io"
#define DSET_COMPACT_IO_NAME      "compact_io"
#define DSET_COMPACT_MAX_NAME     "max_compact"
#define DSET_COMPACT_MAX2_NAME    "max_compact_2"
#define DSET_CONV_BUF_NAME        "conv_buf"
#define DSET_TCONV_NAME           "tconv"
#define DSET_DEFLATE_NAME         "deflate"
#define DSET_SHUFFLE_NAME         "shuffle"
#define DSET_FLETCHER32_NAME      "fletcher32"
#define DSET_FLETCHER32_NAME_2    "fletcher32_2"
#define DSET_FLETCHER32_NAME_3    "fletcher32_3"
#define DSET_SHUF_DEF_FLET_NAME   "shuffle+deflate+fletcher32"
#define DSET_SHUF_DEF_FLET_NAME_2 "shuffle+deflate+fletcher32_2"
#define DSET_OPTIONAL_SCALAR      "dataset_with_scalar_space"
#define DSET_OPTIONAL_VLEN        "dataset_with_vlen_type"
#ifdef H5_HAVE_FILTER_SZIP
#define DSET_SZIP_NAME             "szip"
#define DSET_SHUF_SZIP_FLET_NAME   "shuffle+szip+fletcher32"
#define DSET_SHUF_SZIP_FLET_NAME_2 "shuffle+szip+fletcher32_2"
#endif /* H5_HAVE_FILTER_SZIP */

#define DSET_BOGUS_NAME      "bogus"
#define DSET_MISSING_NAME    "missing"
#define DSET_CAN_APPLY_NAME  "can_apply"
#define DSET_CAN_APPLY_NAME2 "can_apply2"
#ifdef H5_HAVE_FILTER_SZIP
#define DSET_CAN_APPLY_SZIP_NAME "can_apply_szip"
#endif /* H5_HAVE_FILTER_SZIP */
#define DSET_SET_LOCAL_NAME            "set_local"
#define DSET_SET_LOCAL_NAME_2          "set_local_2"
#define DSET_ONEBYTE_SHUF_NAME         "onebyte_shuffle"
#define DSET_NBIT_INT_NAME             "nbit_int"
#define DSET_NBIT_FLOAT_NAME           "nbit_float"
#define DSET_NBIT_DOUBLE_NAME          "nbit_double"
#define DSET_NBIT_ARRAY_NAME           "nbit_array"
#define DSET_NBIT_COMPOUND_NAME        "nbit_compound"
#define DSET_NBIT_COMPOUND_NAME_2      "nbit_compound_2"
#define DSET_NBIT_COMPOUND_NAME_3      "nbit_compound_3"
#define DSET_NBIT_INT_SIZE_NAME        "nbit_int_size"
#define DSET_NBIT_FLT_SIZE_NAME        "nbit_flt_size"
#define DSET_SCALEOFFSET_INT_NAME      "scaleoffset_int"
#define DSET_SCALEOFFSET_INT_NAME_2    "scaleoffset_int_2"
#define DSET_SCALEOFFSET_FLOAT_NAME    "scaleoffset_float"
#define DSET_SCALEOFFSET_FLOAT_NAME_2  "scaleoffset_float_2"
#define DSET_SCALEOFFSET_DOUBLE_NAME   "scaleoffset_double"
#define DSET_SCALEOFFSET_DOUBLE_NAME_2 "scaleoffset_double_2"
#define DSET_COMPARE_DCPL_NAME         "compare_dcpl"
#define DSET_COMPARE_DCPL_NAME_2       "compare_dcpl_2"
#define DSET_COPY_DCPL_NAME_1          "copy_dcpl_1"
#define DSET_COPY_DCPL_NAME_2          "copy_dcpl_2"
#define COPY_DCPL_EXTFILE_NAME         "ext_file"
#ifndef H5_NO_DEPRECATED_SYMBOLS
#define DSET_DEPREC_NAME         "deprecated"
#define DSET_DEPREC_NAME_CHUNKED "deprecated_chunked"
#define DSET_DEPREC_NAME_COMPACT "deprecated_compact"
#define DSET_DEPREC_NAME_FILTER  "deprecated_filter"
#endif /* H5_NO_DEPRECATED_SYMBOLS */

/* Dataset names for testing Fixed Array Indexing */
#define DSET_FIXED_MAX   "DSET_FIXED_MAX"
#define DSET_FIXED_NOMAX "DSET_FIXED_NOMAX"
#define DSET_FIXED_BIG   "DSET_FIXED_BIG"
#define POINTS           72
#define POINTS_BIG       2500

/* Dataset names used for testing header flush dependencies */
#define DSET_EARRAY_HDR_FD "earray_hdr_fd"
#define DSET_FARRAY_HDR_FD "farray_hdr_fd"
#define DSET_BT2_HDR_FD    "bt2_hdr_fd"

/* Dataset names for testing Implicit Indexing */
#define DSET_SINGLE_MAX   "DSET_SINGLE_MAX"
#define DSET_SINGLE_NOMAX "DSET_SINGLE_NOMAX"

#define USER_BLOCK    1024
#define SIXTY_FOUR_KB 65536

/* Temporary filter IDs used for testing */
#define H5Z_FILTER_BOGUS          305
#define H5Z_FILTER_CORRUPT        306
#define H5Z_FILTER_CAN_APPLY_TEST 307
#define H5Z_FILTER_SET_LOCAL_TEST 308
#ifndef H5_NO_DEPRECATED_SYMBOLS
#define H5Z_FILTER_DEPREC 309
#endif /* H5_NO_DEPRECATED_SYMBOLS */
#define H5Z_FILTER_EXPAND          310
#define H5Z_FILTER_CAN_APPLY_TEST2 311
#define H5Z_FILTER_COUNT           312

/* Flags for testing filters */
#define DISABLE_FLETCHER32 0
#define ENABLE_FLETCHER32  1
#define DATA_CORRUPTED     1
#define DATA_NOT_CORRUPTED 0

/* Parameters for the "set local" test */
#define BOGUS2_PERM_NPARMS 2  /* Number of "permanent" parameters */
#define BOGUS2_PARAM_1     13 /* (No particular meaning, just for checking value) */
#define BOGUS2_PARAM_2     35 /* (No particular meaning, just for checking value) */
#define BOGUS2_ALL_NPARMS  4  /* Total number of parameter = permanent + "local" parameters */

/* Dimensionality for conversion buffer test */
#define DIM1 100  /* Dim. Size of data member # 1 */
#define DIM2 5000 /* Dim. Size of data member # 2 */
#define DIM3 10   /* Dim. Size of data member # 3 */

/* Parameters for internal filter test */
#define FILTER_CHUNK_DIM1 2
#define FILTER_CHUNK_DIM2 25
#define FILTER_HS_OFFSET1 7
#define FILTER_HS_OFFSET2 30
#define FILTER_HS_SIZE1   4
#define FILTER_HS_SIZE2   50

/* Names for noencoder test */
#ifdef H5_HAVE_FILTER_SZIP
#define NOENCODER_FILENAME                  "noencoder.h5"
#define NOENCODER_COPY_FILENAME             "noencoder.h5.copy"
#define NOENCODER_TEST_DATASET              "noencoder_tdset.h5"
#define NOENCODER_SZIP_DATASET              "noencoder_szip_dset.h5"
#define NOENCODER_SZIP_SHUFF_FLETCH_DATASET "noencoder_szip_shuffle_fletcher_dset.h5"
#endif /* H5_HAVE_FILTER_SZIP */

/* Names for zero-dim test */
#define ZERODIM_DATASET  "zerodim"
#define ZERODIM_DATASET2 "zerodim2"

/* Parameters for zero-dim test */
#define MISSING_CHUNK_DATASET  "missing_chunk"
#define MISSING_CHUNK_DATASET2 "missing_chunk2"
#define MISSING_CHUNK_DIM      100

/* Names for random chunks test */
#define NPOINTS 50

/* Parameters for huge chunks test */
#define HUGE_DATASET          "Dataset"
#define HUGE_DIM              ((hsize_t)16 * 1024 * 1024 * 1024)
#define HUGE_CHUNK_DIM        ((hsize_t)2 * 1024 * 1024 * 1024)
#define TOO_HUGE_CHUNK_DIM    ((hsize_t)4 * 1024 * 1024 * 1024)
#define HUGE_DATASET2         "Dataset2"
#define HUGE_DIM2_0           ((hsize_t)16 * 1024)
#define HUGE_DIM2_1           ((hsize_t)16 * 1024)
#define HUGE_DIM2_2           ((hsize_t)16 * 1024)
#define HUGE_CHUNK_DIM2_0     ((hsize_t)2 * 1024)
#define HUGE_CHUNK_DIM2_1     ((hsize_t)1024)
#define HUGE_CHUNK_DIM2_2     ((hsize_t)1024)
#define TOO_HUGE_CHUNK_DIM2_0 ((hsize_t)4 * 1024)
#define TOO_HUGE_CHUNK_DIM2_1 ((hsize_t)1024)
#define TOO_HUGE_CHUNK_DIM2_2 ((hsize_t)1024)

/* Parameters for testing bypassing chunk cache */
#define BYPASS_DATASET1 "Dset1"
#define BYPASS_DATASET2 "Dset2"

#define T_BYPASS_DATASET1 "T_Dset1"
#define T_BYPASS_DATASET2 "T_Dset2"

#define BYPASS_DIM        1000
#define BYPASS_CHUNK_DIM  500
#define BYPASS_FILL_VALUE 7

/* Parameters for testing extensible array chunk indices */
#define EARRAY_MAX_RANK    3
#define EARRAY_DSET_DIM    15
#define EARRAY_CHUNK_DIM   3
#define EARRAY_EXTEND_INCR 15
#define EARRAY_MAX_EXTEND  75

/* Parameters for datasets in query storage size tests */
#define STORAGE_SIZE_DIM1       12
#define STORAGE_SIZE_DIM2       6
#define STORAGE_SIZE_MAX_DIM1   100
#define STORAGE_SIZE_MAX_DIM2   80
#define STORAGE_SIZE_CHUNK_DIM1 5
#define STORAGE_SIZE_CHUNK_DIM2 5

/* Shared global arrays */
#define DSET_DIM1 100
#define DSET_DIM2 200
int **   points               = NULL;
int *    points_data          = NULL;
double **points_dbl           = NULL;
double * points_dbl_data      = NULL;
int **   check                = NULL;
int *    check_data           = NULL;
double **check_dbl            = NULL;
double * check_dbl_data       = NULL;
size_t   count_nbytes_read    = 0;
size_t   count_nbytes_written = 0;

/* Temporary buffer dimensions */
#define DSET_TMP_DIM1 50
#define DSET_TMP_DIM2 100

/* Declarations for test_idx_compatible() */
#define DSET        "dset"
#define DSET_FILTER "dset_filter"
const char *OLD_FILENAME[] = {
    /* Files created under 1.6 branch and 1.8 branch */
    "btree_idx_1_6.h5", /* 1.6 HDF5 file */
    "btree_idx_1_8.h5"  /* 1.8 HDF5 file */
};

/* Local prototypes for filter functions */
static size_t filter_bogus(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
                           size_t *buf_size, void **buf);
static htri_t can_apply_bogus(hid_t dcpl_id, hid_t type_id, hid_t space_id);
static herr_t set_local_bogus2(hid_t dcpl_id, hid_t type_id, hid_t space_id);
static size_t filter_bogus2(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
                            size_t nbytes, size_t *buf_size, void **buf);
static size_t filter_bogus3(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
                            size_t nbytes, size_t *buf_size, void **buf);
static size_t filter_corrupt(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
                             size_t nbytes, size_t *buf_size, void **buf);
static size_t filter_expand(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values,
                            size_t nbytes, size_t *buf_size, void **buf);
static size_t filter_count(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
                           size_t *buf_size, void **buf);

/* This message derives from H5Z */
const H5Z_class2_t H5Z_COUNT[1] = {{
    H5Z_CLASS_T_VERS, /* H5Z_class_t version */
    H5Z_FILTER_COUNT, /* Filter id number */
    1, 1,             /* Encoding and decoding enabled */
    "count",          /* Filter name for debugging */
    NULL,             /* The "can apply" callback */
    NULL,             /* The "set local" callback */
    filter_count,     /* The actual filter function */
}};

/*-------------------------------------------------------------------------
 * Function:    filter_count
 *
 * Purpose:     This filter counts the number of bytes read and written,
 *              incrementing count_nbytes_read or count_nbytes_written as
 *              appropriate.
 *
 * Return:      Success:        Data chunk size
 *              Failure:        0
 *-------------------------------------------------------------------------
 */
static size_t
filter_count(unsigned int flags, size_t H5_ATTR_UNUSED cd_nelmts,
             const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes, size_t H5_ATTR_UNUSED *buf_size,
             void H5_ATTR_UNUSED **buf)
{
    if (flags & H5Z_FLAG_REVERSE)
        count_nbytes_read += nbytes;
    else
        count_nbytes_written += nbytes;

    return nbytes;
} /* end filter_count() */

/*-------------------------------------------------------------------------
 * Function:  test_create
 *
 * Purpose:   Attempts to create a dataset.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_create(hid_t file)
{
    hid_t   dataset, space, small_space, create_parms;
    hsize_t dims[2], small_dims[2];
    herr_t  status;
    hsize_t csize[2];

    TESTING("create, open, close");

    /* Create the data space */
    dims[0] = 256;
    dims[1] = 512;
    space   = H5Screate_simple(2, dims, NULL);
    HDassert(space >= 0);

    /* Create a small data space for compact dataset */
    small_dims[0] = 16;
    small_dims[1] = 8;
    small_space   = H5Screate_simple(2, small_dims, NULL);
    HDassert(space >= 0);

    /*
     * Create a dataset using the default dataset creation properties.    We're
     * not sure what they are, so we won't check.
     */
    dataset =
        H5Dcreate2(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
    if (dataset < 0)
        goto error;

    /* Close the dataset */
    if (H5Dclose(dataset) < 0)
        goto error;

    /* Add a comment to the dataset */
    status = H5Oset_comment_by_name(file, DSET_DEFAULT_NAME, "This is a dataset", H5P_DEFAULT);
    if (status < 0)
        goto error;

    /*
     * Try creating a dataset that already exists.  This should fail since a
     * dataset can only be created once.  Temporarily turn off error
     * reporting.
     */
    H5E_BEGIN_TRY
    {
        dataset = H5Dcreate2(file, DSET_DEFAULT_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, H5P_DEFAULT,
                             H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (dataset >= 0) {
        H5_FAILED();
        HDputs("    Library allowed overwrite of existing dataset.");
        goto error;
    }

    /*
     * Open the dataset we created above and then close it.  This is how
     * existing datasets are accessed.
     */
    if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0)
        goto error;
    if ((dataset = H5Dopen2(file, DSET_DEFAULT_NAME, H5P_DEFAULT)) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    /*
     * Try opening a non-existent dataset. This should fail since new datasets
     * cannot be created with this function.  Temporarily turn off error
     * reporting.
     */
    H5E_BEGIN_TRY
    {
        dataset = H5Dopen2(file, "does_not_exist", H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (dataset >= 0) {
        H5_FAILED();
        HDputs("    Opened a non-existent dataset.");
        goto error;
    }

    /*
     * Create a new dataset that uses chunked storage instead of the default
     * layout.
     */
    create_parms = H5Pcreate(H5P_DATASET_CREATE);
    HDassert(create_parms >= 0);

    /* Attempt to create a dataset with invalid chunk sizes */
    csize[0] = dims[0] * 2;
    csize[1] = dims[1] * 2;
    status   = H5Pset_chunk(create_parms, 2, csize);
    HDassert(status >= 0);
    H5E_BEGIN_TRY
    {
        dataset = H5Dcreate2(file, DSET_CHUNKED_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, create_parms,
                             H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (dataset >= 0) {
        H5_FAILED();
        HDputs("    Opened a dataset with incorrect chunking parameters.");
        goto error;
    }

    csize[0] = 5;
    csize[1] = 100;
    status   = H5Pset_chunk(create_parms, 2, csize);
    HDassert(status >= 0);

    dataset =
        H5Dcreate2(file, DSET_CHUNKED_NAME, H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, create_parms, H5P_DEFAULT);
    if (dataset < 0)
        goto error;
    H5Pclose(create_parms);

    /* Test dataset address.  Should be undefined. */
    if (H5Dget_offset(dataset) != HADDR_UNDEF)
        goto error;

    /*
     * Close the chunked dataset.
     */
    if (H5Dclose(dataset) < 0)
        goto error;

    /*
     * Create a compact dataset, then close it.
     */
    create_parms = H5Pcreate(H5P_DATASET_CREATE);
    HDassert(create_parms >= 0);
    status = H5Pset_layout(create_parms, H5D_COMPACT);
    HDassert(status >= 0);
    status = H5Pset_alloc_time(create_parms, H5D_ALLOC_TIME_EARLY);
    HDassert(status >= 0);

    dataset = H5Dcreate2(file, DSET_COMPACT_NAME, H5T_NATIVE_DOUBLE, small_space, H5P_DEFAULT, create_parms,
                         H5P_DEFAULT);
    if (dataset < 0)
        goto error;
    H5Pclose(create_parms);
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();
    return SUCCEED;

error:
    return FAIL;
} /* end test_create() */

/*-------------------------------------------------------------------------
 * Function:   test_simple_io
 *
 * Purpose:    Tests simple I/O.  That is, reading and writing a complete
 *        multi-dimensional array without data type or data space
 *        conversions, without compression, and stored contiguously.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_simple_io(const char *env_h5_drvr, hid_t fapl)
{
    char    filename[FILENAME_BUF_SIZE];
    hid_t   file = -1, dataset = -1, space = -1, xfer = -1;
    int     i, j, n;
    hsize_t dims[2];
    void *  tconv_buf = NULL;
    int     f         = -1;
    haddr_t offset;
    int **  rdata       = NULL;
    int *   rdata_bytes = NULL;

    TESTING("simple I/O");

    /* Can't run this test with multi-file VFDs because of HDopen/read/seek the file directly */
    if (HDstrcmp(env_h5_drvr, "split") != 0 && HDstrcmp(env_h5_drvr, "multi") != 0 &&
        HDstrcmp(env_h5_drvr, "family") != 0) {
        h5_fixname(FILENAME[4], fapl, filename, sizeof filename);

        /* Set up data array */
        if (NULL == (rdata_bytes = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
            TEST_ERROR;
        if (NULL == (rdata = (int **)HDcalloc(DSET_DIM1, sizeof(rdata_bytes))))
            TEST_ERROR;
        for (i = 0; i < DSET_DIM1; i++)
            rdata[i] = rdata_bytes + (i * DSET_DIM2);

        /* Initialize the dataset */
        for (i = n = 0; i < DSET_DIM1; i++)
            for (j = 0; j < DSET_DIM2; j++)
                points[i][j] = n++;

        if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
            goto error;

        /* Create the data space */
        dims[0] = DSET_DIM1;
        dims[1] = DSET_DIM2;
        if ((space = H5Screate_simple(2, dims, NULL)) < 0)
            goto error;

        /* Create a small conversion buffer to test strip mining */
        tconv_buf = HDmalloc((size_t)1000);
        xfer      = H5Pcreate(H5P_DATASET_XFER);
        HDassert(xfer >= 0);
        if (H5Pset_buffer(xfer, (size_t)1000, tconv_buf, NULL) < 0)
            goto error;

        /* Create the dataset */
        if ((dataset = H5Dcreate2(file, DSET_SIMPLE_IO_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0)
            goto error;
        if (H5Sclose(space) < 0)
            TEST_ERROR
        space = -1;

        /* Test dataset address.  Should be undefined. */
        if (H5Dget_offset(dataset) != HADDR_UNDEF)
            goto error;

        /* Write the data to the dataset */
        if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, xfer, points_data) < 0)
            goto error;

        /* Test dataset address in file. Open the same file as a C file, seek
         * the data position as H5Dget_offset points to, read the dataset, and
         * compare it with the data written in.*/
        if ((offset = H5Dget_offset(dataset)) == HADDR_UNDEF)
            goto error;

        /* Read the dataset back */
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, xfer, check_data) < 0)
            goto error;

        /* Check that the values read are the same as the values written */
        for (i = 0; i < DSET_DIM1; i++) {
            for (j = 0; j < DSET_DIM2; j++) {
                if (points[i][j] != check[i][j]) {
                    H5_FAILED();
                    HDprintf("    Read different values than written.\n");
                    HDprintf("    At index %d,%d\n", i, j);
                    goto error;
                }
            }
        }

        if (H5Pclose(xfer) < 0)
            goto error;
        xfer = -1;
        if (H5Dclose(dataset) < 0)
            goto error;
        dataset = -1;
        if (H5Fclose(file) < 0)
            goto error;
        file = -1;

        f = HDopen(filename, O_RDONLY);
        HDlseek(f, (off_t)offset, SEEK_SET);
        if (HDread(f, rdata_bytes, sizeof(int) * DSET_DIM1 * DSET_DIM2) < 0)
            goto error;

        /* Check that the values read are the same as the values written */
        for (i = 0; i < DSET_DIM1; i++) {
            for (j = 0; j < DSET_DIM2; j++) {
                if (points[i][j] != rdata[i][j]) {
                    H5_FAILED();
                    HDprintf("    Read different values than written.\n");
                    HDprintf("    At index %d,%d\n", i, j);
                    goto error;
                }
            }
        }

        HDclose(f);
        f = -1;

        HDfree(tconv_buf);
        HDfree(rdata_bytes);
        HDfree(rdata);

        PASSED();
    } /* end if */
    else {
        SKIPPED();
        HDputs("    Current VFD doesn't support continuous address space");
    } /* end else */

    return SUCCEED;

error:
    if (space > 0)
        if (H5Sclose(space) < 0)
            TEST_ERROR
    if (xfer > 0)
        if (H5Pclose(xfer) < 0)
            TEST_ERROR
    if (dataset > 0)
        if (H5Dclose(dataset) < 0)
            TEST_ERROR
    if (file > 0)
        if (H5Fclose(file) < 0)
            TEST_ERROR
    if (f > 0)
        HDclose(f);

    HDfree(tconv_buf);
    HDfree(rdata_bytes);
    HDfree(rdata);

    return FAIL;
} /* end test_simple_io() */

/*-------------------------------------------------------------------------
 * Function:  test_userblock_offset
 *
 * Purpose:   Tests H5Dget_offset when user block exists.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_userblock_offset(const char *env_h5_drvr, hid_t fapl, hbool_t new_format)
{
    char    filename[FILENAME_BUF_SIZE];
    hid_t   file = -1, fcpl = -1, dataset = -1, space = -1;
    int     i, j;
    hsize_t dims[2];
    int     f = -1;
    haddr_t offset;
    int **  rdata       = NULL;
    int *   rdata_bytes = NULL;

    TESTING("dataset offset with user block");

    /* Can't run this test with multi-file VFDs because of HDopen/read/seek the file directly */
    if (HDstrcmp(env_h5_drvr, "split") != 0 && HDstrcmp(env_h5_drvr, "multi") != 0 &&
        HDstrcmp(env_h5_drvr, "family") != 0) {
        h5_fixname(FILENAME[2], fapl, filename, sizeof filename);

        /* Set up data array */
        if (NULL == (rdata_bytes = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
            TEST_ERROR;
        if (NULL == (rdata = (int **)HDcalloc(DSET_DIM1, sizeof(rdata_bytes))))
            TEST_ERROR;
        for (i = 0; i < DSET_DIM1; i++)
            rdata[i] = rdata_bytes + (i * DSET_DIM2);

        if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
            goto error;
        if (H5Pset_userblock(fcpl, (hsize_t)USER_BLOCK) < 0)
            goto error;
        if (new_format)
            if (H5Pset_file_space_page_size(fcpl, (hsize_t)USER_BLOCK) < 0)
                goto error;

        if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl)) < 0)
            goto error;
        if (H5Pclose(fcpl) < 0)
            TEST_ERROR
        fcpl = -1;

        /* Create the data space */
        dims[0] = DSET_DIM1;
        dims[1] = DSET_DIM2;
        if ((space = H5Screate_simple(2, dims, NULL)) < 0)
            goto error;

        /* Create the dataset */
        if ((dataset = H5Dcreate2(file, DSET_USERBLOCK_IO_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT,
                                  H5P_DEFAULT, H5P_DEFAULT)) < 0)
            goto error;
        if (H5Sclose(space) < 0)
            TEST_ERROR
        space = -1;

        /* Write the data to the dataset */
        if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0)
            goto error;

        /* Test dataset address in file. Open the same file as a C file, seek
         * the data position as H5Dget_offset points to, read the dataset, and
         * compare it with the data written in.*/
        if ((offset = H5Dget_offset(dataset)) == HADDR_UNDEF)
            goto error;

        if (H5Dclose(dataset) < 0)
            goto error;
        dataset = -1;
        if (H5Fclose(file) < 0)
            goto error;
        file = -1;

        f = HDopen(filename, O_RDONLY);
        HDlseek(f, (off_t)offset, SEEK_SET);
        if (HDread(f, rdata_bytes, sizeof(int) * DSET_DIM1 * DSET_DIM2) < 0)
            goto error;

        /* Check that the values read are the same as the values written */
        for (i = 0; i < DSET_DIM1; i++) {
            for (j = 0; j < DSET_DIM2; j++) {
                if (points[i][j] != rdata[i][j]) {
                    H5_FAILED();
                    HDprintf("    Read different values than written.\n");
                    HDprintf("    At index %d,%d\n", i, j);
                    goto error;
                }
            }
        }

        HDclose(f);
        f = -1;

        HDfree(rdata_bytes);
        HDfree(rdata);

        PASSED();
    } /* end if */
    else {
        SKIPPED();
        HDputs("    Current VFD doesn't support continuous address space");
    } /* end else */

    return SUCCEED;

error:
    if (space > 0)
        if (H5Sclose(space) < 0)
            TEST_ERROR
    if (fcpl > 0)
        if (H5Pclose(fcpl) < 0)
            TEST_ERROR
    if (dataset > 0)
        if (H5Dclose(dataset) < 0)
            TEST_ERROR
    if (file > 0)
        if (H5Fclose(file) < 0)
            TEST_ERROR
    if (f > 0)
        HDclose(f);

    HDfree(rdata_bytes);
    HDfree(rdata);

    return FAIL;
} /* end test_userblock_offset() */

/*-------------------------------------------------------------------------
 * Function:    test_compact_io
 *
 * Purpose:     Tests compact dataset I/O.  That is, reading and writing a
 *              complete multi-dimensional array without data type or data
 *              space conversions, without compression, and store in
 *              compact dataset.
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_compact_io(hid_t fapl)
{
    hid_t        file, dataset, space, plist;
    hid_t        verfile = -1, new_fapl = -1;
    hsize_t      dims[2];
    int          wbuf[16][8], rbuf[16][8];
    char         filename[FILENAME_BUF_SIZE];
    H5F_libver_t low, high; /* File format bounds */
    H5F_t *      fp;        /* Internal file pointer */
    H5D_t *      dsetp;     /* Internal dataset pointer */
    int          i, j, n;   /* Indices */
    herr_t       ret;       /* Generic return value */

    TESTING("compact dataset I/O");

    /* Initialize data */
    n = 0;
    for (i = 0; i < 16; i++)
        for (j = 0; j < 8; j++)
            wbuf[i][j] = n++;

    /* Create a small data space for compact dataset */
    dims[0] = 16;
    dims[1] = 8;
    if ((space = H5Screate_simple(2, dims, NULL)) < 0)
        TEST_ERROR

    /* Create a file */
    h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
    if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        TEST_ERROR

    /* Create property list for compact dataset creation */
    if ((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        TEST_ERROR
    if (H5Pset_layout(plist, H5D_COMPACT) < 0)
        TEST_ERROR
    if (H5Pset_alloc_time(plist, H5D_ALLOC_TIME_EARLY) < 0)
        TEST_ERROR

    /* Create and write to a compact dataset */
    if ((dataset = H5Dcreate2(file, DSET_COMPACT_IO_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist,
                              H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Test dataset address.  Should be undefined. */
    if (H5Dget_offset(dataset) != HADDR_UNDEF)
        TEST_ERROR

    if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
        TEST_ERROR

    /* Test dataset address.  Should be undefined. */
    if (H5Dget_offset(dataset) != HADDR_UNDEF)
        TEST_ERROR

    /* Close file */
    if (H5Dclose(dataset) < 0)
        TEST_ERROR
    if (H5Fclose(file) < 0)
        TEST_ERROR

    /*
     * Open the file and check data
     */
    if ((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
        TEST_ERROR
    if ((dataset = H5Dopen2(file, DSET_COMPACT_IO_NAME, H5P_DEFAULT)) < 0)
        TEST_ERROR
    if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
        TEST_ERROR

    /* Check that the values read are the same as the values written */
    for (i = 0; i < 16; i++)
        for (j = 0; j < 8; j++)
            if (rbuf[i][j] != wbuf[i][j]) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %d,%d\n", i, j);
                HDprintf("    wbuf[%d][%d]=%d\n", i, j, wbuf[i][j]);
                HDprintf("    rbuf[%d][%d]=%d\n", i, j, rbuf[i][j]);
                goto error;
            } /* end  */

    if (H5Dclose(dataset) < 0)
        TEST_ERROR
    if (H5Fclose(file) < 0)
        TEST_ERROR

    /**************************************
     * Additional test for version bounds *
     **************************************/

    /* Create a copy of file access property list */
    if ((new_fapl = h5_fileaccess()) < 0)
        TEST_ERROR

    /* Loop through all the combinations of low/high library format bounds,
       skipping invalid combinations.
       - Create a file, create and write a compact dataset, and verify its data
       - Verify the dataset's layout and fill message versions */
    for (low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
        for (high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {

            /* Set version bounds */
            H5E_BEGIN_TRY
            {
                ret = H5Pset_libver_bounds(new_fapl, low, high);
            }
            H5E_END_TRY;

            if (ret < 0) /* Invalid low/high combinations */
                continue;

            /* Create a file */
            h5_fixname(FILENAME[25], new_fapl, filename, sizeof filename);
            if ((verfile = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, new_fapl)) < 0)
                TEST_ERROR

            /* Create the compact dataset */
            dataset = H5Dcreate2(verfile, DSET_DEFAULT_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist,
                                 H5P_DEFAULT);
            if (dataset < 0)
                TEST_ERROR

            /* Write the same data as of DSET_COMPACT_IO_NAME */
            if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
                TEST_ERROR

            /* Close DSET_DEFAULT_NAME, then reopen it to read and verify
               the data */
            if (H5Dclose(dataset) < 0)
                TEST_ERROR
            if ((dataset = H5Dopen2(verfile, DSET_DEFAULT_NAME, H5P_DEFAULT)) < 0)
                TEST_ERROR
            if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
                TEST_ERROR

            /* Check that the values read are the same as the values written */
            for (i = 0; i < 16; i++)
                for (j = 0; j < 8; j++)
                    if (rbuf[i][j] != wbuf[i][j]) {
                        H5_FAILED();
                        HDprintf("    Read different values than written.\n");
                        HDprintf("    At index %d,%d\n", i, j);
                        HDprintf("    wbuf[%d][%d]=%d\n", i, j, wbuf[i][j]);
                        HDprintf("    rbuf[%d][%d]=%d\n", i, j, rbuf[i][j]);
                        goto error;
                    } /* end  */

            /* Get the internal file pointer */
            if ((fp = (H5F_t *)H5VL_object(verfile)) == NULL)
                TEST_ERROR

            /* Get the internal dataset pointer */
            if ((dsetp = (H5D_t *)H5VL_object(dataset)) == NULL)
                TEST_ERROR

            /* Verify the dataset's layout and fill message versions */
            if (fp->shared->low_bound == H5F_LIBVER_EARLIEST) {
                VERIFY(dsetp->shared->layout.version, H5O_LAYOUT_VERSION_DEFAULT, "layout_ver_bounds");
                VERIFY(dsetp->shared->dcpl_cache.fill.version, H5O_FILL_VERSION_2, "fill_ver_bounds");
            }
            else {
                VERIFY(dsetp->shared->layout.version, H5O_layout_ver_bounds[fp->shared->low_bound],
                       "layout_ver_bounds");
                VERIFY(dsetp->shared->dcpl_cache.fill.version, H5O_fill_ver_bounds[fp->shared->low_bound],
                       "fill_ver_bounds");
            }

            /* Close the dataset and delete from the file */
            if (H5Dclose(dataset) < 0)
                TEST_ERROR
            if (H5Ldelete(verfile, DSET_DEFAULT_NAME, H5P_DEFAULT) < 0)
                TEST_ERROR

            /* Close the file */
            if (H5Fclose(verfile) < 0)
                TEST_ERROR

        } /* end for high */
    }     /* end for low */

    if (H5Pclose(new_fapl) < 0)
        TEST_ERROR
    if (H5Sclose(space) < 0)
        TEST_ERROR
    if (H5Pclose(plist) < 0)
        TEST_ERROR

    PASSED();
    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(space);
        H5Pclose(plist);
        H5Pclose(new_fapl);
        H5Dclose(dataset);
        H5Fclose(file);
        H5Fclose(verfile);
    }
    H5E_END_TRY;

    return FAIL;
} /* end test_compact_io() */

/*-------------------------------------------------------------------------
 * Function:    test_max_compact
 *
 * Purpose:     Tests compact dataset of maximal size.
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_max_compact(hid_t fapl)
{
    hid_t   file    = -1;
    hid_t   dataset = -1;
    hid_t   space   = -1;
    hid_t   plist   = -1;
    hsize_t dims[1];
    size_t  compact_size;
    int *   wbuf = NULL;
    int *   rbuf = NULL;
    char    filename[FILENAME_BUF_SIZE];
    int     n;
    size_t  u;

    TESTING("compact dataset of maximal size");

    /* Test compact dataset of size 64KB-64 */

    /* Initialize data */
    compact_size = (SIXTY_FOUR_KB - 64) / sizeof(int);

    if (NULL == (wbuf = (int *)HDmalloc(sizeof(int) * compact_size)))
        TEST_ERROR
    if (NULL == (rbuf = (int *)HDmalloc(sizeof(int) * compact_size)))
        TEST_ERROR

    n = 0;
    for (u = 0; u < compact_size; u++)
        wbuf[u] = n++;

    /* Create a small data space for compact dataset */
    dims[0] = (hsize_t)compact_size;
    if ((space = H5Screate_simple(1, dims, NULL)) < 0)
        FAIL_STACK_ERROR

    /* Create a file */
    h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
    if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        FAIL_STACK_ERROR

    /* Create property list for compact dataset creation */
    if ((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_layout(plist, H5D_COMPACT) < 0)
        FAIL_STACK_ERROR

    /* Create and write to a compact dataset */
    if ((dataset = H5Dcreate2(file, DSET_COMPACT_MAX_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist,
                              H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR

    if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
        FAIL_STACK_ERROR

    /* Close file */
    if (H5Sclose(space) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(plist) < 0)
        FAIL_STACK_ERROR
    if (H5Dclose(dataset) < 0)
        FAIL_STACK_ERROR
    if (H5Fclose(file) < 0)
        FAIL_STACK_ERROR

    /*
     * Open the file and check data
     */
    if ((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR
    if ((dataset = H5Dopen2(file, DSET_COMPACT_MAX_NAME, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR
    if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rbuf) < 0)
        FAIL_STACK_ERROR

    /* Check that the values read are the same as the values written */
    for (u = 0; u < compact_size; u++)
        if (rbuf[u] != wbuf[u]) {
            H5_FAILED();
            HDprintf("    Read different values than written.\n");
            HDprintf("    At index %u\n", (unsigned)u);
            goto error;
        } /* end if */

    if (H5Dclose(dataset) < 0)
        FAIL_STACK_ERROR
    if (H5Fclose(file) < 0)
        FAIL_STACK_ERROR
    HDfree(wbuf);
    wbuf = NULL;
    HDfree(rbuf);
    rbuf = NULL;

    /* Test compact dataset of size 64KB */

    /* Create a data space for compact dataset */
    compact_size = SIXTY_FOUR_KB / sizeof(int);
    dims[0]      = (hsize_t)compact_size;
    if ((space = H5Screate_simple(1, dims, NULL)) < 0)
        FAIL_STACK_ERROR

    /* Open file */
    if ((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0)
        goto error;

    /* Create property list for compact dataset creation */
    if ((plist = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_layout(plist, H5D_COMPACT) < 0)
        FAIL_STACK_ERROR

    /* Create and write to a compact dataset */
    H5E_BEGIN_TRY
    {
        H5Dcreate2(file, DSET_COMPACT_MAX2_NAME, H5T_NATIVE_INT, space, H5P_DEFAULT, plist, H5P_DEFAULT);
    }
    H5E_END_TRY;

    /* Close file */
    if (H5Sclose(space) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(plist) < 0)
        FAIL_STACK_ERROR
    if (H5Fclose(file) < 0)
        FAIL_STACK_ERROR

    PASSED();
    return SUCCEED;

error:
    if (wbuf)
        HDfree(wbuf);
    if (rbuf)
        HDfree(rbuf);

    H5E_BEGIN_TRY
    {
        /* Close file */
        H5Sclose(space);
        H5Pclose(plist);
        H5Dclose(dataset);
        H5Fclose(file);
    }
    H5E_END_TRY;

    return FAIL;
} /* end test_max_compact() */

/*-------------------------------------------------------------------------
 * Function:    test_layout_extend
 *
 * Purpose:     Verify that the creation of extendible dataset with dataspace:
 *        cur_dims < max_dims (max_dims can be fixed size or H5S_UNLIMITED)
 *        will behave as follows:
 *            H5D_COMPACT layout: fail
 *            H5D_CONTIGUOUS layout: fail
 *            H5D_CHUNKED layout: succeed
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_layout_extend(hid_t fapl)
{
    char    filename[FILENAME_BUF_SIZE];                            /* File name */
    hid_t   fid     = -1;                                           /* File id */
    hid_t   sid_fix = -1, sid_unlim = -1;                           /* Dataspace id */
    hid_t   dcpl_compact = -1, dcpl_contig = -1, dcpl_chunked = -1; /* Dataset creation property list id */
    hid_t   did_fixed = -1, did_unlim = -1;                         /* Dataset id */
    hsize_t cur_size[1]  = {10};                                    /* Current size of dataspace */
    hsize_t max_unlim[1] = {H5S_UNLIMITED}; /* Maximum size of dataspace (unlimited) */
    hsize_t max_fix[1]   = {100};           /* Maximum size of dataspace (fixed) */
    hsize_t chunk_dim[1] = {10};            /* Chunk size */

    TESTING("extendible dataset with various layout");

    /* Create a file */
    h5_fixname(FILENAME[15], fapl, filename, sizeof filename);
    if ((fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        FAIL_STACK_ERROR

    /* Create dataspace */
    if ((sid_fix = H5Screate_simple(1, cur_size, max_fix)) < 0)
        FAIL_STACK_ERROR
    if ((sid_unlim = H5Screate_simple(1, cur_size, max_unlim)) < 0)
        FAIL_STACK_ERROR

    /* Create property list for compact dataset creation */
    if ((dcpl_compact = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_layout(dcpl_compact, H5D_COMPACT) < 0)
        FAIL_STACK_ERROR

    /* Create dataset with extendible dataspace (fixed max_dims) should fail */
    H5E_BEGIN_TRY
    {
        if (H5Dcreate2(fid, "compact", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_compact, H5P_DEFAULT) !=
            FAIL)
            TEST_ERROR
    }
    H5E_END_TRY;

    /* Create dataset with extendible dataspace (unlimited max_dims) should fail */
    H5E_BEGIN_TRY
    {
        if (H5Dcreate2(fid, "compact", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_compact, H5P_DEFAULT) !=
            FAIL)
            TEST_ERROR
    }
    H5E_END_TRY;

    /* Create property list for contiguous dataset creation */
    if ((dcpl_contig = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if ((H5Pset_layout(dcpl_contig, H5D_CONTIGUOUS)) < 0)
        FAIL_STACK_ERROR

    /* Create dataset with extendible dataspace (fixed max_dims) should fail */
    H5E_BEGIN_TRY
    {
        if (H5Dcreate2(fid, "contig", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_contig, H5P_DEFAULT) != FAIL)
            TEST_ERROR
    }
    H5E_END_TRY;

    /* Create dataset with extendible dataspace (unlimited max_dims) should fail*/
    H5E_BEGIN_TRY
    {
        if (H5Dcreate2(fid, "contig", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_contig, H5P_DEFAULT) !=
            FAIL)
            TEST_ERROR
    }
    H5E_END_TRY;

    /* Create property list for chunked dataset creation */
    if ((dcpl_chunked = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_layout(dcpl_chunked, H5D_CHUNKED) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_chunk(dcpl_chunked, 1, chunk_dim) < 0)
        FAIL_STACK_ERROR

    /* Create dataset with extendible dataspace (fixed max_dims) should succeed */
    if ((did_fixed = H5Dcreate2(fid, "chunked_fixed", H5T_NATIVE_INT, sid_fix, H5P_DEFAULT, dcpl_chunked,
                                H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR

    /* Create dataset with extendible dataspace (unlimited max_dims) should succeed */
    if ((did_unlim = H5Dcreate2(fid, "chunked_unlim", H5T_NATIVE_INT, sid_unlim, H5P_DEFAULT, dcpl_chunked,
                                H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR

    /* Closing */
    if (H5Sclose(sid_fix) < 0)
        FAIL_STACK_ERROR
    if (H5Sclose(sid_unlim) < 0)
        FAIL_STACK_ERROR

    if (H5Pclose(dcpl_compact) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(dcpl_contig) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(dcpl_chunked) < 0)
        FAIL_STACK_ERROR

    if (H5Dclose(did_fixed) < 0)
        FAIL_STACK_ERROR
    if (H5Dclose(did_unlim) < 0)
        FAIL_STACK_ERROR

    if (H5Fclose(fid) < 0)
        FAIL_STACK_ERROR

    PASSED();
    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(sid_fix);
        H5Sclose(sid_unlim);
        H5Pclose(dcpl_compact);
        H5Pclose(dcpl_contig);
        H5Pclose(dcpl_chunked);
        H5Dclose(did_fixed);
        H5Dclose(did_unlim);
        H5Fclose(fid);
    }
    H5E_END_TRY;

    return FAIL;
} /* end test_layout_extend() */

/*-------------------------------------------------------------------------
 * Function:  test_conv_buffer
 *
 * Purpose:   Test size of data type conversion buffer.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_conv_buffer(hid_t fid)
{
    typedef struct {
        int    a[DIM1][DIM2][DIM3];
        float  b[DIM2];
        double c[DIM3];
    } CmpField;

    typedef struct {
        float  b[DIM2];
        double c[DIM3];
    } CmpFieldR;

    herr_t status = -1;
    int    j, k, l;

    CmpField * cf   = NULL;
    CmpFieldR *cfrR = NULL;

    hid_t dataset = H5I_INVALID_HID;                          /* dataset ID             */
    hid_t space   = H5I_INVALID_HID;                          /* data space ID          */
    hid_t ctype1 = H5I_INVALID_HID, ctype2 = H5I_INVALID_HID; /* data type ID           */
    hid_t arr_type1 = H5I_INVALID_HID, arr_type2 = H5I_INVALID_HID, arr_type3 = H5I_INVALID_HID,
          arr_type4 = H5I_INVALID_HID, arr_type5 = H5I_INVALID_HID;
    hsize_t dimsa[3];
    hsize_t dimsb[1];
    hsize_t dimsc[1];
    hid_t   xfer_list = H5I_INVALID_HID;
    size_t  size;

    TESTING("data type conversion buffer size");

    if ((cf = (CmpField *)HDcalloc((size_t)1, sizeof(CmpField))) == 0)
        goto error;

    /* Populate the data members */
    for (j = 0; j < DIM1; j++)
        for (k = 0; k < DIM2; k++)
            for (l = 0; l < DIM3; l++)
                cf->a[j][k][l] = 10 * (j + 1) + l + k;

    for (j = 0; j < DIM2; j++)
        cf->b[j] = 100.0f * (float)(j + 1) + 0.01f * (float)j;

    for (j = 0; j < DIM3; j++)
        cf->c[j] = 100.0f * (float)(j + 1) + 0.02f * (float)j;

    /* Create data space */
    if ((space = H5Screate(H5S_SCALAR)) < 0)
        goto error;

    /* Add  members to the compound data type */
    dimsa[0] = DIM1;
    dimsa[1] = DIM2;
    dimsa[2] = DIM3;
    dimsb[0] = DIM2;
    dimsc[0] = DIM3;

    /* Create the memory data type */
    if ((ctype1 = H5Tcreate(H5T_COMPOUND, sizeof(CmpField))) < 0)
        goto error;

    if ((arr_type1 = H5Tarray_create2(H5T_NATIVE_INT, 3, dimsa)) < 0)
        goto error;
    if ((arr_type2 = H5Tarray_create2(H5T_NATIVE_FLOAT, 1, dimsb)) < 0)
        goto error;
    if ((arr_type3 = H5Tarray_create2(H5T_NATIVE_DOUBLE, 1, dimsc)) < 0)
        goto error;

    if (H5Tinsert(ctype1, "A", HOFFSET(CmpField, a), arr_type1) < 0)
        goto error;
    if (H5Tinsert(ctype1, "B", HOFFSET(CmpField, b), arr_type2) < 0)
        goto error;
    if (H5Tinsert(ctype1, "C", HOFFSET(CmpField, c), arr_type3) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset =
             H5Dcreate2(fid, DSET_CONV_BUF_NAME, ctype1, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        goto error;
    if (H5Dwrite(dataset, ctype1, H5S_ALL, H5S_ALL, H5P_DEFAULT, cf) < 0)
        goto error;

    if ((ctype2 = H5Tcreate(H5T_COMPOUND, sizeof(CmpFieldR))) < 0)
        goto error;

    if ((arr_type4 = H5Tarray_create2(H5T_NATIVE_FLOAT, 1, dimsb)) < 0)
        goto error;
    if ((arr_type5 = H5Tarray_create2(H5T_NATIVE_DOUBLE, 1, dimsc)) < 0)
        goto error;

    if (H5Tinsert(ctype2, "B", HOFFSET(CmpFieldR, b), arr_type4) < 0)
        goto error;
    if (H5Tinsert(ctype2, "C", HOFFSET(CmpFieldR, c), arr_type5) < 0)
        goto error;

    /* Read should succeed since library will set conversion buffer big enough */
    if ((cfrR = (CmpFieldR *)HDcalloc((size_t)1, sizeof(CmpFieldR))) == 0)
        goto error;
    if (H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, H5P_DEFAULT, cfrR) < 0)
        goto error;

    /* Read should fail since conversion buffer isn't big enough */
    xfer_list = H5Pcreate(H5P_DATASET_XFER);
    size      = (DIM2 * DIM3 * (sizeof(int)) + DIM2 * (sizeof(float)) + DIM3 * (sizeof(double)));
    if (H5Pset_buffer(xfer_list, size, NULL, NULL) < 0)
        goto error;

    H5E_BEGIN_TRY
    {
        status = H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, xfer_list, cfrR);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Library shouldn't allow conversion buffer too small");
        goto error;
    }

    /* Read will succeed since conversion buffer is big enough */
    size = (DIM1 * DIM2 * DIM3 * (sizeof(int)) + DIM2 * (sizeof(float)) + DIM3 * (sizeof(double)));
    if (H5Pset_buffer(xfer_list, size, NULL, NULL) < 0)
        goto error;

    if (H5Dread(dataset, ctype2, H5S_ALL, H5S_ALL, xfer_list, cfrR) < 0)
        goto error;

    if (H5Pclose(xfer_list) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Tclose(arr_type1) < 0)
        goto error;
    if (H5Tclose(arr_type2) < 0)
        goto error;
    if (H5Tclose(arr_type3) < 0)
        goto error;
    if (H5Tclose(ctype1) < 0)
        goto error;
    if (H5Tclose(ctype2) < 0)
        goto error;
    if (H5Tclose(arr_type4) < 0)
        goto error;
    if (H5Tclose(arr_type5) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    HDfree(cf);
    HDfree(cfrR);
    HDputs(" PASSED");
    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(xfer_list);
        H5Sclose(space);
        H5Tclose(arr_type1);
        H5Tclose(arr_type2);
        H5Tclose(arr_type3);
        H5Tclose(ctype1);
        H5Tclose(ctype2);
        H5Tclose(arr_type4);
        H5Tclose(arr_type5);
        H5Dclose(dataset);
    }
    H5E_END_TRY;

    return FAIL;
} /* end test_conv_buffer() */

/*-------------------------------------------------------------------------
 * Function:  test_tconv
 *
 * Purpose:   Test some simple data type conversion stuff.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_tconv(hid_t file)
{
    char *  out = NULL, *in = NULL;
    hsize_t dims[1];
    hid_t   space = -1, dataset = -1;
    int     i;

    if ((out = (char *)HDmalloc((size_t)(4 * 1000 * 1000))) == NULL)
        goto error;
    if ((in = (char *)HDmalloc((size_t)(4 * 1000 * 1000))) == NULL)
        goto error;

    TESTING("data type conversion");

    /* Initialize the dataset */
    for (i = 0; i < 1000000; i++) {
        out[i * 4 + 0] = 0x11;
        out[i * 4 + 1] = 0x22;
        out[i * 4 + 2] = 0x33;
        out[i * 4 + 3] = 0x44;
    } /* end for */

    /* Create the data space */
    dims[0] = 1000000;
    if ((space = H5Screate_simple(1, dims, NULL)) < 0)
        goto error;

    /* Create the data set */
    if ((dataset = H5Dcreate2(file, DSET_TCONV_NAME, H5T_STD_I32LE, space, H5P_DEFAULT, H5P_DEFAULT,
                              H5P_DEFAULT)) < 0)
        goto error;

    /* Write the data to the dataset */
    if (H5Dwrite(dataset, H5T_STD_I32LE, H5S_ALL, H5S_ALL, H5P_DEFAULT, out) < 0)
        goto error;

    /* Read data with byte order conversion */
    if (H5Dread(dataset, H5T_STD_I32BE, H5S_ALL, H5S_ALL, H5P_DEFAULT, in) < 0)
        goto error;

    /* Check */
    for (i = 0; i < 1000000; i++) {
        if (in[4 * i + 0] != out[4 * i + 3] || in[4 * i + 1] != out[4 * i + 2] ||
            in[4 * i + 2] != out[4 * i + 1] || in[4 * i + 3] != out[4 * i + 0]) {
            H5_FAILED();
            HDputs("    Read with byte order conversion failed.");
            goto error;
        }
    }

    if (H5Dclose(dataset) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    HDfree(out);
    HDfree(in);

    HDputs(" PASSED");
    return SUCCEED;

error:
    if (out)
        HDfree(out);
    if (in)
        HDfree(in);

    H5E_BEGIN_TRY
    {
        H5Dclose(dataset);
        H5Sclose(space);
    }
    H5E_END_TRY;

    return FAIL;
} /* end test_tconv() */

/* This message derives from H5Z */
const H5Z_class2_t H5Z_BOGUS[1] = {{
    H5Z_CLASS_T_VERS, /* H5Z_class_t version */
    H5Z_FILTER_BOGUS, /* Filter id number        */
    1, 1,             /* Encoding and decoding enabled */
    "bogus",          /* Filter name for debugging    */
    NULL,             /* The "can apply" callback     */
    NULL,             /* The "set local" callback     */
    filter_bogus,     /* The actual filter function    */
}};

/*-------------------------------------------------------------------------
 * Function:  can_apply_bogus
 *
 * Purpose:   A bogus 'can apply' callback that returns 0 for H5T_NATIVE_DOUBLE
 *            dataype, but returns 1 for all other datatypes
 *
 * Return:    Success:    Described above
 *            Failure:    0
 *-------------------------------------------------------------------------
 */
static htri_t
can_apply_bogus(hid_t H5_ATTR_UNUSED dcpl_id, hid_t type_id, hid_t H5_ATTR_UNUSED space_id)
{
    if (H5Tequal(type_id, H5T_NATIVE_DOUBLE))
        return 0;
    else if (H5Tequal(type_id, H5T_NATIVE_INT))
        return 1;
    else
        return -1;
} /* end can_apply_bogus() */

/*-------------------------------------------------------------------------
 * Function:  filter_bogus
 *
 * Purpose:   A bogus compression method that doesn't do anything.
 *
 * Return:    Success:    Data chunk size
 *            Failure:    0
 *-------------------------------------------------------------------------
 */
static size_t
filter_bogus(unsigned int H5_ATTR_UNUSED flags, size_t H5_ATTR_UNUSED cd_nelmts,
             const unsigned int H5_ATTR_UNUSED *cd_values, size_t nbytes, size_t H5_ATTR_UNUSED *buf_size,
             void H5_ATTR_UNUSED **buf)
{
    return nbytes;
} /* end filter_bogus() */

/*-------------------------------------------------------------------------
 * Function:  set_local_bogus2
 *
 * Purpose:   A 'set local' callback that stores the size of the datatype
 *            and adds it to all the H5T_NATIVE_INT values during
 *            filter operation.
 *
 * Return:    Success:    non-negative
 *            Failure:    negative
 *-------------------------------------------------------------------------
 */
static herr_t
set_local_bogus2(hid_t dcpl_id, hid_t type_id, hid_t H5_ATTR_UNUSED space_id)
{
    unsigned add_on = 0;                     /* Value to add to data going through */
    unsigned flags;                          /* Filter flags */
    size_t   cd_nelmts = BOGUS2_PERM_NPARMS; /* Number of filter parameters */
    unsigned cd_values[4];                   /* Filter parameters */

    /* Check for native integer datatype and set private property */
    if (H5Tequal(type_id, H5T_NATIVE_INT) > 0)
        add_on = (unsigned)H5Tget_size(type_id);

    /* Get the filter's current parameters */
    if (H5Pget_filter_by_id2(dcpl_id, H5Z_FILTER_SET_LOCAL_TEST, &flags, &cd_nelmts, cd_values, (size_t)0,
                             NULL, NULL) < 0)
        return (FAIL);

    /* Check that the parameter values were passed along correctly */
    if (cd_values[0] != BOGUS2_PARAM_1)
        return (FAIL);
    if (cd_values[1] != BOGUS2_PARAM_2)
        return (FAIL);

    /* Set "local" parameters for this dataset */
    cd_values[2] = (unsigned)(add_on > 0); /* Flag to indicate data is modified */
    cd_values[3] = add_on;                 /* Amount the data was modified by */

    /* Modify the filter's parameters for this dataset */
    if (H5Pmodify_filter(dcpl_id, H5Z_FILTER_SET_LOCAL_TEST, flags, (size_t)BOGUS2_ALL_NPARMS, cd_values) < 0)
        return (FAIL);

    return (SUCCEED);
} /* end set_local_bogus2() */

/*-------------------------------------------------------------------------
 * Function:  filter_bogus2
 *
 * Purpose:   A filter method that adds a value to data values on writing
 *            (if the parameter is set), but does not modify data values on
 *            reading (so that correct operation of the filter can be
 *            checked).
 *
 * Return:    Success:    Data chunk size
 *            Failure:    0
 *-------------------------------------------------------------------------
 */
static size_t
filter_bogus2(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
              size_t *buf_size, void **buf)
{
    /* Check for the correct number of parameters */
    if (cd_nelmts != BOGUS2_ALL_NPARMS)
        return (0);

    /* Check that permanent parameters are set correctly */
    if (cd_values[0] != BOGUS2_PARAM_1)
        return (0);
    if (cd_values[1] != BOGUS2_PARAM_2)
        return (0);

    /* Check if this filter is supposed to do something */
    if (cd_values[2] > 0) {
        /* Check whether we are "uncompressing" */
        if (flags & H5Z_FLAG_REVERSE) {
            /* Do nothing */
        } /* end if */
        /* "Compressing" */
        else {
            unsigned add_on   = cd_values[3]; /* Get "add on" value */
            int *    int_ptr  = (int *)*buf;  /* Pointer to the data values */
            size_t   buf_left = *buf_size;    /* Amount of data buffer left to process */

            /* Add the "add on" value to all the data values */
            while (buf_left > 0) {
                *int_ptr++ += (int)add_on;
                buf_left -= sizeof(int);
            } /* end while */
        }     /* end else */

        return (nbytes);
    } /* end if */
    /* Filter is "no op" */
    else
        return (nbytes);
} /* end filter_bogus2() */

/*-------------------------------------------------------------------------
 * Function:  filter_bogus3
 *
 * Purpose:   A bogus compression method that returns a failure.
 *
 * Return:    Success:    Data chunk size
 *            Failure:    0
 *-------------------------------------------------------------------------
 */
static size_t
filter_bogus3(unsigned int H5_ATTR_UNUSED flags, size_t H5_ATTR_UNUSED cd_nelmts,
              const unsigned int H5_ATTR_UNUSED *cd_values, size_t H5_ATTR_UNUSED nbytes,
              size_t H5_ATTR_UNUSED *buf_size, void H5_ATTR_UNUSED **buf)
{
    return 0;
} /* end filter_bogus3() */

/* This message derives from H5Z */
const H5Z_class2_t H5Z_CORRUPT[1] = {{
    H5Z_CLASS_T_VERS,   /* H5Z_class_t version */
    H5Z_FILTER_CORRUPT, /* Filter id number        */
    1, 1,               /* Encoding and decoding enabled */
    "corrupt",          /* Filter name for debugging    */
    NULL,               /* The "can apply" callback     */
    NULL,               /* The "set local" callback     */
    filter_corrupt,     /* The actual filter function    */
}};

/*-------------------------------------------------------------------------
 * Function:  filter_corrupt
 *
 * Purpose:   For testing Fletcher32 checksum.  modify data slightly during
 *            writing so that when data is read back, the checksum should
 *            fail.
 *
 * Return:    Success:    Data chunk size
 *           Failure:    0
 *-------------------------------------------------------------------------
 */
static size_t
filter_corrupt(unsigned int flags, size_t cd_nelmts, const unsigned int *cd_values, size_t nbytes,
               size_t *buf_size, void **buf)
{
    void *         data = NULL;
    unsigned char *dst  = (unsigned char *)(*buf);
    unsigned int   offset;
    unsigned int   length;
    unsigned int   value;
    size_t         ret_value = 0;

    if (cd_nelmts != 3 || !cd_values)
        TEST_ERROR
    offset = cd_values[0];
    length = cd_values[1];
    value  = cd_values[2];
    if (offset > nbytes || (offset + length) > nbytes || length < sizeof(unsigned int))
        TEST_ERROR

    if (NULL == (data = HDmalloc((size_t)length)))
        TEST_ERROR
    HDmemset(data, (int)value, (size_t)length);

    if (flags & H5Z_FLAG_REVERSE) { /* Varify data is actually corrupted during read */
        dst += offset;
        if (HDmemcmp(data, dst, (size_t)length) != 0)
            TEST_ERROR
        else {
            *buf_size = nbytes;
            ret_value = nbytes;
        }  /* end else */
    }      /* end if */
    else { /* Write corrupted data */
        dst += offset;
        HDmemcpy(dst, data, (size_t)length);
        *buf_size = nbytes;
        ret_value = *buf_size;
    } /* end else */

error:
    if (data)
        HDfree(data);

    return ret_value;
} /* end filter_corrupt() */

/*-------------------------------------------------------------------------
 * Function:    filter_cb_cont
 *
 * Purpose:     Callback function to handle checksum failure.  Let it continue.
 *
 * Return:      continue
 *-------------------------------------------------------------------------
 */
static H5Z_cb_return_t
filter_cb_cont(H5Z_filter_t filter, void H5_ATTR_UNUSED *buf, size_t H5_ATTR_UNUSED buf_size,
               void H5_ATTR_UNUSED *op_data)
{
    if (H5Z_FILTER_FLETCHER32 == filter)
        return H5Z_CB_CONT;
    else
        return H5Z_CB_FAIL;
} /* end filter_cb_cont() */

/*-------------------------------------------------------------------------
 * Function:    filter_cb_fail
 *
 * Purpose:     Callback function to handle checksum failure.  Let it fail.
 *
 * Return:      fail
 *-------------------------------------------------------------------------
 */
static H5Z_cb_return_t
filter_cb_fail(H5Z_filter_t filter, void H5_ATTR_UNUSED *buf, size_t H5_ATTR_UNUSED buf_size,
               void H5_ATTR_UNUSED *op_data)
{
    if (H5Z_FILTER_FLETCHER32 == filter)
        return H5Z_CB_FAIL;
    else
        return H5Z_CB_CONT;
} /* end filter_cb_fail() */

/*-------------------------------------------------------------------------
 * Function:  test_filter_internal
 *
 * Purpose:   Tests dataset compression. If compression is requested when
 *            it hasn't been compiled into the library (such as when
 *            updating an existing compressed dataset) then data is sent to
 *            the file uncompressed but no errors are returned.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_filter_internal(hid_t fid, const char *name, hid_t dcpl, int if_fletcher32, int corrupted,
                     hsize_t *dset_size)
{
    hid_t         dataset;                               /* Dataset ID */
    hid_t         dxpl;                                  /* Dataset xfer property list ID */
    hid_t         write_dxpl;                            /* Dataset xfer property list ID for writing */
    hid_t         sid;                                   /* Dataspace ID */
    const hsize_t size[2]      = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
    const hsize_t hs_offset[2] = {FILTER_HS_OFFSET1, FILTER_HS_OFFSET2}; /* Hyperslab offset */
    const hsize_t hs_size[2]   = {FILTER_HS_SIZE1, FILTER_HS_SIZE2};     /* Hyperslab size */
    void *        tconv_buf    = NULL;                                   /* Temporary conversion buffer */
    size_t        i, j, n;                                               /* Local index variables */
    herr_t        status;                                                /* Error status */

    /* Create the data space */
    if ((sid = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /*
     * Create a small conversion buffer to test strip mining. We
     * might as well test all we can!
     */
    if ((dxpl = H5Pcreate(H5P_DATASET_XFER)) < 0)
        goto error;
    tconv_buf = HDmalloc((size_t)1000);
    if (H5Pset_buffer(dxpl, (size_t)1000, tconv_buf, NULL) < 0)
        goto error;
    if ((write_dxpl = H5Pcopy(dxpl)) < 0)
        TEST_ERROR;

    if (if_fletcher32 == DISABLE_FLETCHER32) {
        if (H5Pset_edc_check(dxpl, H5Z_DISABLE_EDC) < 0)
            goto error;
        if (H5Z_DISABLE_EDC != H5Pget_edc_check(dxpl))
            goto error;
    }

    TESTING("    filters (setup)");

    /* Check if all the filters are available */
    if (H5Pall_filters_avail(dcpl) != TRUE) {
        H5_FAILED();
        HDprintf("    Line %d: Incorrect filter availability\n", __LINE__);
        goto error;
    } /* end if */

    /* Create the dataset */
    if ((dataset = H5Dcreate2(fid, name, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
        goto error;

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Read uninitialized data.  It should be zero.
     *----------------------------------------------------------------------
     */
    TESTING("    filters (uninitialized read)");

    if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
        TEST_ERROR;

    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (0 != check[i][j]) {
                H5_FAILED();
                HDprintf("    Read a non-zero value.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Test filters by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    filters (write)");

    for (i = n = 0; i < size[0]; i++) {
        for (j = 0; j < size[1]; j++) {
            points[i][j] = (int)(n++);
        }
    }

    if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, points_data) < 0)
        TEST_ERROR;

    if ((*dset_size = H5Dget_storage_size(dataset)) == 0)
        TEST_ERROR;

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 3: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    filters (read)");

    /* Read the dataset back */
    if (corrupted) {
        /* Default behavior is failure when data is corrupted. */
        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;

        /* Callback decides to continue inspite data is corrupted. */
        if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
            TEST_ERROR;
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Callback decides to fail when data is corrupted. */
        if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
            TEST_ERROR;
        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;
    }
    else {
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Check that the values read are the same as the values written */
        for (i = 0; i < size[0]; i++) {
            for (j = 0; j < size[1]; j++) {
                if (points[i][j] != check[i][j]) {
                    H5_FAILED();
                    HDfprintf(stderr, "    Read different values than written.\n");
                    HDfprintf(stderr, "    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                    HDfprintf(stderr, "    At original: %d\n", (int)points[i][j]);
                    HDfprintf(stderr, "    At returned: %d\n", (int)check[i][j]);
                    goto error;
                }
            }
        }
    }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 4: Write new data over the top of the old data.  The new data is
     * random thus not very compressible, and will cause the chunks to move
     * around as they grow.  We only change values for the left half of the
     * dataset although we rewrite the whole thing.
     *----------------------------------------------------------------------
     */
    TESTING("    filters (modify)");

    for (i = 0; i < size[0]; i++) {
        for (j = 0; j < size[1] / 2; j++) {
            points[i][j] = (int)HDrandom();
        }
    }
    if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, points_data) < 0)
        TEST_ERROR;

    if (corrupted) {
        /* Default behavior is failure when data is corrupted. */
        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;

        /* Callback decides to continue inspite data is corrupted. */
        if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
            TEST_ERROR;
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Callback decides to fail when data is corrupted. */
        if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
            TEST_ERROR;
        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;
    }
    else {
        /* Read the dataset back and check it */
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Check that the values read are the same as the values written */
        for (i = 0; i < size[0]; i++) {
            for (j = 0; j < size[1]; j++) {
                if (points[i][j] != check[i][j]) {
                    H5_FAILED();
                    HDprintf("    Read different values than written.\n");
                    HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                    goto error;
                }
            }
        }
    }

    if ((*dset_size = H5Dget_storage_size(dataset)) == 0)
        TEST_ERROR;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 5: Close the dataset and then open it and read it again.  This
     * insures that the filters message is picked up properly from the
     * object header.
     *----------------------------------------------------------------------
     */
    TESTING("    filters (re-open)");

    if (H5Dclose(dataset) < 0)
        TEST_ERROR;
    if ((dataset = H5Dopen2(fid, name, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (corrupted) {
        /* Default behavior is failure when data is corrupted. */
        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;

        /* Callback decides to continue inspite data is corrupted. */
        if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
            TEST_ERROR;
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Callback decides to fail when data is corrupted. */
        if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
            TEST_ERROR;

        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;
    } /* end if */
    else {
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Check that the values read are the same as the values written */
        for (i = 0; i < size[0]; i++)
            for (j = 0; j < size[1]; j++)
                if (points[i][j] != check[i][j]) {
                    H5_FAILED();
                    HDprintf("    Read different values than written.\n");
                    HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                    goto error;
                } /* end if */
    }             /* end else */

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 6: Test partial I/O by writing to and then reading from a
     * hyperslab of the dataset.  The hyperslab does not line up on chunk
     * boundaries (we know that case already works from above tests).
     *----------------------------------------------------------------------
     */
    TESTING("    filters (partial I/O)");

    for (i = 0; i < (size_t)hs_size[0]; i++) {
        for (j = 0; j < (size_t)hs_size[1]; j++) {
            points[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j] = (int)HDrandom();
        }
    }
    if (H5Sselect_hyperslab(sid, H5S_SELECT_SET, hs_offset, NULL, hs_size, NULL) < 0)
        TEST_ERROR;
    /* (Use the "read" DXPL because partial I/O on corrupted data test needs to ignore errors during writing)
     */
    if (H5Dwrite(dataset, H5T_NATIVE_INT, sid, sid, dxpl, points_data) < 0)
        TEST_ERROR;

    if (corrupted) {
        /* Default behavior is failure when data is corrupted. */
        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;

        /* Callback decides to continue inspite data is corrupted. */
        if (H5Pset_filter_callback(dxpl, filter_cb_cont, NULL) < 0)
            TEST_ERROR;
        if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Callback decides to fail when data is corrupted. */
        if (H5Pset_filter_callback(write_dxpl, filter_cb_fail, NULL) < 0)
            TEST_ERROR;
        /* (Use the "write" DXPL in order to make certain corruption is seen) */
        H5E_BEGIN_TRY
        {
            status = H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, write_dxpl, check_data);
        }
        H5E_END_TRY;
        if (status >= 0)
            TEST_ERROR;
    }
    else {
        if (H5Dread(dataset, H5T_NATIVE_INT, sid, sid, dxpl, check_data) < 0)
            TEST_ERROR;

        /* Check that the values read are the same as the values written */
        for (i = 0; i < (size_t)hs_size[0]; i++) {
            for (j = 0; j < (size_t)hs_size[1]; j++) {
                if (points[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j] !=
                    check[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j]) {
                    H5_FAILED();
                    HDfprintf(stderr, "    Read different values than written.\n");
                    HDfprintf(stderr, "    At index %lu,%lu\n", (unsigned long)((size_t)hs_offset[0] + i),
                              (unsigned long)((size_t)hs_offset[1] + j));
                    HDfprintf(stderr, "    At original: %d\n",
                              (int)points[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j]);
                    HDfprintf(stderr, "    At returned: %d\n",
                              (int)check[(size_t)hs_offset[0] + i][(size_t)hs_offset[1] + j]);
                    goto error;
                }
            }
        }
    }

    /* Get the storage size of the dataset */
    if ((*dset_size = H5Dget_storage_size(dataset)) == 0)
        goto error;

    PASSED();

    /* Clean up objects used for this test */
    if (H5Dclose(dataset) < 0)
        goto error;
    if (H5Sclose(sid) < 0)
        goto error;
    if (H5Pclose(dxpl) < 0)
        goto error;
    if (H5Pclose(write_dxpl) < 0)
        goto error;
    HDfree(tconv_buf);

    return SUCCEED;

error:
    if (tconv_buf)
        HDfree(tconv_buf);
    return FAIL;
} /* end test_filter_internal() */

/*-------------------------------------------------------------------------
 * Function:  test_filter_noencoder
 *
 * Purpose:   Tests filters with no encoder present.  Ensures that data
 *            can still be decoded correctly and that errors are thrown
 *            when the application tries to write.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
#ifdef H5_HAVE_FILTER_SZIP
static herr_t
test_filter_noencoder(const char *dset_name)
{
    hid_t   file_id      = -1;
    hid_t   dset_id      = -1;
    hid_t   test_dset_id = -1;
    hid_t   dcpl_id      = -1;
    hid_t   space_id     = -1;
    hsize_t dims         = 10;
    herr_t  err;
    int     test_ints[10] = {12};
    int     read_buf[10];
    int     i;

    /* Make a local copy of the file since this test writes to the data file
       from svn. */
    if (h5_make_local_copy(NOENCODER_FILENAME, NOENCODER_COPY_FILENAME) < 0)
        goto error;

    /* Open file */
    file_id = H5Fopen(NOENCODER_COPY_FILENAME, H5F_ACC_RDWR, H5P_DEFAULT);
    if (file_id < 0)
        goto error;

    dset_id = H5Dopen2(file_id, dset_name, H5P_DEFAULT);
    if (dset_id < 0)
        goto error;

    space_id = H5Screate_simple(1, &dims, NULL);
    if (space_id < 0)
        goto error;

    TESTING("    decoding without encoder");

    /* Read the dataset and make sure the decoder is working correctly */
    err = H5Dread(dset_id, H5T_NATIVE_INT, space_id, space_id, H5P_DEFAULT, read_buf);
    if (err < 0)
        goto error;

    for (i = 0; i < 10; i++)
        if (read_buf[i] != i)
            goto error;

    H5Sclose(space_id);

    PASSED();

    /* Attempt to copy the DCPL and use it to create a new dataset.
     * Since the filter does not have an encoder, the creation
     * should fail.
     */
    TESTING("    trying to write without encoder");

    dcpl_id = H5Dget_create_plist(dset_id);
    if (dcpl_id < 0)
        goto error;

    space_id = H5Screate_simple(1, &dims, NULL);
    if (space_id < 0)
        goto error;

    H5E_BEGIN_TRY
    {
        test_dset_id = H5Dcreate2(file_id, NOENCODER_TEST_DATASET, H5T_NATIVE_INT, space_id, H5P_DEFAULT,
                                  dcpl_id, H5P_DEFAULT);
    }
    H5E_END_TRY

    if (test_dset_id >= 0)
        goto error;

    /* Attempt to extend the dataset.  This should fail because
     * the dataset has a fill value and is instructed to fill on
     * allocation.
     */
    dims = 20; /* Dataset is originally of size 10 */
    H5E_BEGIN_TRY
    {
        err = H5Dset_extent(dset_id, &dims);
    }
    H5E_END_TRY

    if (err >= 0)
        goto error;

    /* Attempt to write to the dataset.  This should fail because
     * the filter does not have an encoder.
     */
    H5E_BEGIN_TRY
    {
        err = H5Dwrite(dset_id, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, test_ints);
    }
    H5E_END_TRY

    if (err >= 0)
        goto error;

    H5Fclose(file_id);
    H5Dclose(dset_id);
    H5Sclose(space_id);
    H5Pclose(dcpl_id);

    PASSED();

    return SUCCEED;

error:
    H5_FAILED();
    if (dset_id != -1)
        H5Dclose(dset_id);
    if (test_dset_id != -1)
        H5Dclose(test_dset_id);
    if (space_id != -1)
        H5Sclose(space_id);
    if (dcpl_id != -1)
        H5Pclose(dcpl_id);
    if (file_id != -1)
        H5Fclose(file_id);

    return FAIL;
} /* end test_filter_noencoder() */
#endif /* H5_HAVE_FILTER_SZIP */

/*-------------------------------------------------------------------------
 * Function:    test_get_filter_info
 *
 * Purpose:     Tests the H5Zget_filter_info function.
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_get_filter_info(void)
{
    unsigned int flags; /* flags returned from H5Zget_filter_info */
    herr_t       err;

    TESTING("H5Zget_filter_info");

    /* Verify that each filter is reported as having the right combination
     * of encoder and decoder.
     */
    if (H5Zget_filter_info(H5Z_FILTER_FLETCHER32, &flags) < 0)
        TEST_ERROR

    if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
        ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
        TEST_ERROR

    if (H5Zget_filter_info(H5Z_FILTER_SHUFFLE, &flags) < 0)
        TEST_ERROR

    if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
        ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
        TEST_ERROR

#ifdef H5_HAVE_FILTER_DEFLATE
    if (H5Zget_filter_info(H5Z_FILTER_DEFLATE, &flags) < 0)
        TEST_ERROR

    if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
        ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
        TEST_ERROR
#endif

#ifdef H5_HAVE_FILTER_SZIP
    if (H5Zget_filter_info(H5Z_FILTER_SZIP, &flags) < 0)
        TEST_ERROR

    if (H5Z_SZIP->encoder_present) {
        if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) == 0) ||
            ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
            TEST_ERROR
    } /* end if */
    else {
        if (((flags & H5Z_FILTER_CONFIG_ENCODE_ENABLED) != 0) ||
            ((flags & H5Z_FILTER_CONFIG_DECODE_ENABLED) == 0))
            TEST_ERROR
    }  /* end else */
#endif /* H5_HAVE_FILTER_SZIP */

    /* Verify that get_filter_info throws an error when given a bad filter */
    /* (Depends on 1.6 compatibility flag) */
    H5E_BEGIN_TRY
    {
        err = H5Zget_filter_info(-1, &flags);
    }
    H5E_END_TRY;
    if (err >= 0)
        TEST_ERROR

    PASSED();
    return SUCCEED;

error:
    return FAIL;
} /* end test_get_filter_info() */

/*-------------------------------------------------------------------------
 * Function:  test_filters
 *
 * Purpose:   Tests dataset filter.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_filters(hid_t file, hid_t
#ifndef H5_HAVE_FILTER_SZIP
                             H5_ATTR_UNUSED
#endif /* H5_HAVE_FILTER_SZIP */
                                 fapl)
{
    hid_t         dc; /* Dataset creation property list ID */
    const hsize_t chunk_size[2] = {FILTER_CHUNK_DIM1, FILTER_CHUNK_DIM2}; /* Chunk dimensions */
    hsize_t       null_size; /* Size of dataset with null filter */

    hsize_t  fletcher32_size; /* Size of dataset with Fletcher32 checksum */
    unsigned data_corrupt[3]; /* position and length of data to be corrupted */

#ifdef H5_HAVE_FILTER_DEFLATE
    hsize_t deflate_size; /* Size of dataset with deflate filter */
#endif                    /* H5_HAVE_FILTER_DEFLATE */

#ifdef H5_HAVE_FILTER_SZIP
    hsize_t  szip_size; /* Size of dataset with szip filter */
    unsigned szip_options_mask     = H5_SZIP_NN_OPTION_MASK;
    unsigned szip_pixels_per_block = 4;
#endif /* H5_HAVE_FILTER_SZIP */

    hsize_t shuffle_size; /* Size of dataset with shuffle filter */

#if defined(H5_HAVE_FILTER_DEFLATE) || defined(H5_HAVE_FILTER_SZIP)
    hsize_t combo_size; /* Size of dataset with multiple filters */
#endif                  /* defined(H5_HAVE_FILTER_DEFLATE) || defined(H5_HAVE_FILTER_SZIP) */

    /* test the H5Zget_filter_info function */
    if (test_get_filter_info() < 0)
        goto error;

    /*----------------------------------------------------------
     * STEP 0: Test null I/O filter by itself.
     *----------------------------------------------------------
     */
    HDputs("Testing 'null' filter");
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Zregister(H5Z_BOGUS) < 0)
        goto error;
    if (H5Pset_filter(dc, H5Z_FILTER_BOGUS, 0, (size_t)0, NULL) < 0)
        goto error;

    if (test_filter_internal(file, DSET_BOGUS_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED, &null_size) <
        0)
        goto error;

    /* Clean up objects used for this test */
    if (H5Pclose(dc) < 0)
        goto error;

    /*----------------------------------------------------------
     * STEP 1: Test Fletcher32 Checksum by itself.
     *----------------------------------------------------------
     */
    HDputs("Testing Fletcher32 checksum(enabled for read)");
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_filter(dc, H5Z_FILTER_FLETCHER32, 0, (size_t)0, NULL) < 0)
        goto error;

    /* Enable checksum during read */
    if (test_filter_internal(file, DSET_FLETCHER32_NAME, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                             &fletcher32_size) < 0)
        goto error;
    if (fletcher32_size <= null_size) {
        H5_FAILED();
        HDputs("    Size after checksumming is incorrect.");
        goto error;
    } /* end if */

    /* Disable checksum during read */
    HDputs("Testing Fletcher32 checksum(disabled for read)");
    if (test_filter_internal(file, DSET_FLETCHER32_NAME_2, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                             &fletcher32_size) < 0)
        goto error;
    if (fletcher32_size <= null_size) {
        H5_FAILED();
        HDputs("    Size after checksumming is incorrect.");
        goto error;
    } /* end if */

    /* Try to corrupt data and see if checksum fails */
    HDputs("Testing Fletcher32 checksum(when data is corrupted)");
    data_corrupt[0] = 52;
    data_corrupt[1] = 33;
    data_corrupt[2] = 27;

    if (H5Zregister(H5Z_CORRUPT) < 0)
        goto error;
    if (H5Pset_filter(dc, H5Z_FILTER_CORRUPT, 0, (size_t)3, data_corrupt) < 0)
        goto error;
    if (test_filter_internal(file, DSET_FLETCHER32_NAME_3, dc, DISABLE_FLETCHER32, DATA_CORRUPTED,
                             &fletcher32_size) < 0)
        goto error;
    if (fletcher32_size <= null_size) {
        H5_FAILED();
        HDputs("    Size after checksumming is incorrect.");
        goto error;
    } /* end if */

    /* Clean up objects used for this test */
    if (H5Pclose(dc) < 0)
        goto error;

        /*----------------------------------------------------------
         * STEP 2: Test deflation by itself.
         *----------------------------------------------------------
         */
#ifdef H5_HAVE_FILTER_DEFLATE
    HDputs("Testing deflate filter");
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_deflate(dc, 6) < 0)
        goto error;

    if (test_filter_internal(file, DSET_DEFLATE_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                             &deflate_size) < 0)
        goto error;
    /* Clean up objects used for this test */
    if (H5Pclose(dc) < 0)
        goto error;
#else  /* H5_HAVE_FILTER_DEFLATE */
    TESTING("deflate filter");
    SKIPPED();
    HDputs("    Deflate filter not enabled");
#endif /* H5_HAVE_FILTER_DEFLATE */

        /*----------------------------------------------------------
         * STEP 3: Test szip compression by itself.
         *----------------------------------------------------------
         */
#ifdef H5_HAVE_FILTER_SZIP
    TESTING("szip filter (with encoder)");
    if (h5_szip_can_encode() == 1) {
        if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
            goto error;
        if (H5Pset_chunk(dc, 2, chunk_size) < 0)
            goto error;

        HDputs("");
        if (H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0)
            goto error;
        if (test_filter_internal(file, DSET_SZIP_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                                 &szip_size) < 0)
            goto error;
        if (H5Pclose(dc) < 0)
            goto error;
    }
    else {
        SKIPPED();
    }

    TESTING("szip filter (without encoder)");

    if (h5_szip_can_encode() != 1) {
        HDputs("");
        if (test_filter_noencoder(NOENCODER_SZIP_DATASET) < 0)
            goto error;
    }
    else {
        SKIPPED();
    }

#else  /* H5_HAVE_FILTER_SZIP */
    TESTING("szip filter");
    SKIPPED();
    HDputs("    Szip filter not enabled");
#endif /* H5_HAVE_FILTER_SZIP */

    /*----------------------------------------------------------
     * STEP 4: Test shuffling by itself.
     *----------------------------------------------------------
     */
    HDputs("Testing shuffle filter");
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_shuffle(dc) < 0)
        goto error;

    if (test_filter_internal(file, DSET_SHUFFLE_NAME, dc, DISABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                             &shuffle_size) < 0)
        goto error;
    if (shuffle_size != null_size) {
        H5_FAILED();
        HDputs("    Shuffled size not the same as uncompressed size.");
        goto error;
    } /* end if */

    /* Clean up objects used for this test */
    if (H5Pclose(dc) < 0)
        goto error;

        /*----------------------------------------------------------
         * STEP 5: Test shuffle + deflate + checksum in any order.
         *----------------------------------------------------------
         */
#ifdef H5_HAVE_FILTER_DEFLATE
    HDputs("Testing shuffle+deflate+checksum filters(checksum first)");
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_fletcher32(dc) < 0)
        goto error;
    if (H5Pset_shuffle(dc) < 0)
        goto error;
    if (H5Pset_deflate(dc, 6) < 0)
        goto error;

    if (test_filter_internal(file, DSET_SHUF_DEF_FLET_NAME, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                             &combo_size) < 0)
        goto error;

    /* Clean up objects used for this test */
    if (H5Pclose(dc) < 0)
        goto error;

    HDputs("Testing shuffle+deflate+checksum filters(checksum last)");
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_shuffle(dc) < 0)
        goto error;
    if (H5Pset_deflate(dc, 6) < 0)
        goto error;
    if (H5Pset_fletcher32(dc) < 0)
        goto error;

    if (test_filter_internal(file, DSET_SHUF_DEF_FLET_NAME_2, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                             &combo_size) < 0)
        goto error;

    /* Clean up objects used for this test */
    if (H5Pclose(dc) < 0)
        goto error;
#else  /* H5_HAVE_FILTER_DEFLATE */
    TESTING("shuffle+deflate+fletcher32 filters");
    SKIPPED();
    HDputs("    Deflate filter not enabled");
#endif /* H5_HAVE_FILTER_DEFLATE */

        /*----------------------------------------------------------
         * STEP 6: Test shuffle + szip + checksum in any order.
         *----------------------------------------------------------
         */
#ifdef H5_HAVE_FILTER_SZIP

    TESTING("shuffle+szip+checksum filters(checksum first, with encoder)");
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_fletcher32(dc) < 0)
        goto error;
    if (H5Pset_shuffle(dc) < 0)
        goto error;

    /* Make sure encoding is enabled */
    if (h5_szip_can_encode() == 1) {
        HDputs("");
        if (H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0)
            goto error;
        if (test_filter_internal(file, DSET_SHUF_SZIP_FLET_NAME, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                                 &combo_size) < 0)
            goto error;
    }
    else {
        SKIPPED();
    }

    TESTING("shuffle+szip+checksum filters(checksum first, without encoder)");

    if (h5_szip_can_encode() != 1) {
        HDputs("");
        if (test_filter_noencoder(NOENCODER_SZIP_SHUFF_FLETCH_DATASET) < 0)
            goto error;
    }
    else {
        SKIPPED();
    }

    /* Clean up objects used for this test */
    if (H5Pclose(dc) < 0)
        goto error;

    TESTING("shuffle+szip+checksum filters(checksum last, with encoder)");

    /* Make sure encoding is enabled */
    if (h5_szip_can_encode() == 1) {
        HDputs("");
        if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
            goto error;
        if (H5Pset_chunk(dc, 2, chunk_size) < 0)
            goto error;
        if (H5Pset_shuffle(dc) < 0)
            goto error;
        if (H5Pset_szip(dc, szip_options_mask, szip_pixels_per_block) < 0)
            goto error;
        if (H5Pset_fletcher32(dc) < 0)
            goto error;

        if (test_filter_internal(file, DSET_SHUF_SZIP_FLET_NAME_2, dc, ENABLE_FLETCHER32, DATA_NOT_CORRUPTED,
                                 &combo_size) < 0)
            goto error;

        /* Clean up objects used for this test */
        if (H5Pclose(dc) < 0)
            goto error;
    }
    else {
        SKIPPED();
    }

#else  /* H5_HAVE_FILTER_SZIP */
    TESTING("shuffle+szip+fletcher32 filters");
    SKIPPED();
    HDputs("    szip filter not enabled");
#endif /* H5_HAVE_FILTER_SZIP */
    return SUCCEED;

error:
    return FAIL;
} /* end test_filters() */

/*-------------------------------------------------------------------------
 * Function:  test_missing_filter
 *
 * Purpose:   Tests library behavior when filter is missing
 *
 * Return:    SUCCEED/FAIL
 *-------------------------------------------------------------------------
 */
static herr_t
test_missing_filter(hid_t file)
{
    hid_t         fid;                                    /* File ID */
    hid_t         dsid;                                   /* Dataset ID */
    hid_t         sid;                                    /* Dataspace ID */
    hid_t         dcpl;                                   /* Dataspace creation property list ID */
    const hsize_t dims[2]       = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
    const hsize_t chunk_dims[2] = {2, 25};                /* Chunk dimensions */
    hsize_t       dset_size;                              /* Dataset size */
    size_t        i, j;                                   /* Local index variables */
    herr_t        ret;                                    /* Generic return value */
    const char *  testfile       = H5_get_srcdir_filename(FILE_DEFLATE_NAME); /* Corrected test file name */
    hbool_t       api_ctx_pushed = FALSE;                                     /* Whether API context pushed */

    TESTING("dataset access with missing filter");

    /* Unregister the deflate filter */
#ifdef H5_HAVE_FILTER_DEFLATE
    /* Verify deflate filter is registered currently */
    if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != TRUE) {
        H5_FAILED();
        HDprintf("    Line %d: Deflate filter not available\n", __LINE__);
        goto error;
    } /* end if */

    /* Push API context */
    if (H5CX_push() < 0)
        FAIL_STACK_ERROR
    api_ctx_pushed = TRUE;

    /* Unregister deflate filter */
    /* (Use private routine, to avoid range checking on filter ID) */
    if (H5Z__unregister(H5Z_FILTER_DEFLATE) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't unregister deflate filter\n", __LINE__);
        goto error;
    }  /* end if */
#endif /* H5_HAVE_FILTER_DEFLATE */
    /* Verify deflate filter is not registered currently */
    if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != FALSE) {
        H5_FAILED();
        HDprintf("    Line %d: Deflate filter available\n", __LINE__);
        goto error;
    } /* end if */

    /* Create dcpl with deflate filter */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dcpl\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set chunk sizes\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Pset_deflate(dcpl, 9) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set deflate filter\n", __LINE__);
        goto error;
    } /* end if */

    /* Check if all the filters are available */
    ret = H5Pall_filters_avail(dcpl);
    if (ret < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't check filter availability\n", __LINE__);
        goto error;
    } /* end if */
    if (ret != FALSE) {
        H5_FAILED();
        HDprintf("    Line %d: Filter shouldn't be available\n", __LINE__);
        goto error;
    } /* end if */

    /* Create the data space */
    if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Create new dataset */
    if ((dsid = H5Dcreate2(file, DSET_MISSING_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
        0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Write data */
    if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error writing dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Flush the file (to clear the cache) */
    if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error flushing file\n", __LINE__);
        goto error;
    } /* end if */

    /* Query the dataset's size on disk */
    if (0 == (dset_size = H5Dget_storage_size(dsid))) {
        H5_FAILED();
        HDprintf("    Line %d: Error querying dataset size, dset_size=%lu\n", __LINE__,
                 (unsigned long)dset_size);
        goto error;
    } /* end if */

    /* Verify that the size indicates data is uncompressed */
    /* (i.e. the deflation filter we asked for was silently ignored) */
    if ((H5Tget_size(H5T_NATIVE_INT) * DSET_DIM1 * DSET_DIM2) != dset_size) {
        H5_FAILED();
        HDprintf("    Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
        goto error;
    } /* end if */

    /* Read data */
    if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error reading dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Compare data */
    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)dims[0]; i++) {
        for (j = 0; j < (size_t)dims[1]; j++) {
            if (points[i][j] != check[i][j]) {
                H5_FAILED();
                HDprintf("    Line %d: Read different values than written.\n", __LINE__);
                HDprintf("    At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
                HDprintf("    At original: %d\n", points[i][j]);
                HDprintf("    At returned: %d\n", check[i][j]);
                goto error;
            } /* end if */
        }     /* end for */
    }         /* end for */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataspace */
    if (H5Sclose(sid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataset creation property list */
    if (H5Pclose(dcpl) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dcpl\n", __LINE__);
        goto error;
    } /* end if */

    /* Try reading existing dataset with deflate filter */

    /* Open existing file */
    if ((fid = H5Fopen(testfile, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open existing deflated file\n", __LINE__);
        goto error;
    } /* end if */

    /* Open dataset */
    if ((dsid = H5Dopen2(fid, "Dataset1", H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Read data (should fail, since deflate filter is missing) */
    H5E_BEGIN_TRY
    {
        ret = H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data);
    }
    H5E_END_TRY;
    if (ret >= 0) {
        H5_FAILED();
        HDprintf("    Line %d: Should not be able to read dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Close existing file */
    if (H5Fclose(fid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close file\n", __LINE__);
        goto error;
    } /* end if */

    /* Re-register the deflate filter */
    /* Verify deflate filter is not registered currently */
    if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != FALSE) {
        H5_FAILED();
        HDprintf("    Line %d: Deflate filter available\n", __LINE__);
        goto error;
    } /* end if */
#ifdef H5_HAVE_FILTER_DEFLATE
    /* Register deflate filter (use internal function to avoid range checks) */
    if (H5Z_register(H5Z_DEFLATE) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't unregister deflate filter\n", __LINE__);
        goto error;
    } /* end if */

    /* Verify deflate filter is registered currently */
    if (H5Zfilter_avail(H5Z_FILTER_DEFLATE) != TRUE) {
        H5_FAILED();
        HDprintf("    Line %d: Deflate filter not available\n", __LINE__);
        goto error;
    }  /* end if */
#endif /* H5_HAVE_FILTER_DEFLATE */

    /* Pop API context */
    if (api_ctx_pushed && H5CX_pop(FALSE) < 0)
        FAIL_STACK_ERROR
    api_ctx_pushed = FALSE;

    PASSED();
    return SUCCEED;

error:
    if (api_ctx_pushed)
        H5CX_pop(FALSE);

    return FAIL;
} /* end test_missing_filter() */

/*-------------------------------------------------------------------------
 * Function:  test_onebyte_shuffle
 *
 * Purpose:   Tests the 8-bit array with shuffling algorithm.
 *            The shuffled array  should be the same result as
 *            that before the shuffling.
 *
 * Return:    Success:    0
 *            Failure:    -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_onebyte_shuffle(hid_t file)
{
    hid_t         dataset, space, dc;
    const hsize_t size[2]       = {10, 20};
    const hsize_t chunk_size[2] = {10, 20};
    unsigned char orig_data[10][20];
    unsigned char new_data[10][20];
    size_t        i, j;

    TESTING("8-bit shuffling (setup)");

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Use shuffling algorithm with 8-bit  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_shuffle(dc) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_ONEBYTE_SHUF_NAME, H5T_NATIVE_UCHAR, space, H5P_DEFAULT, dc,
                              H5P_DEFAULT)) < 0)
        goto error;

    for (i = 0; i < 10; i++)
        for (j = 0; j < 20; j++)
            orig_data[i][j] = (unsigned char)HDrandom();

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test shuffling by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("8-bit shuffling (write)");

    if (H5Dwrite(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        goto error;

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("8-bit shuffling (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_UCHAR, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (new_data[i][j] != orig_data[i][j]) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_onebyte_shuffle() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_int
 *
 * Purpose:     Tests the integer datatype for nbit filter
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_int(hid_t file)
{
    hid_t        dataset, datatype, mem_datatype, space, dc;
    hsize_t      size[2]       = {2, 5};
    hsize_t      chunk_size[2] = {2, 5};
    int          orig_data[2][5];
    int          new_data[2][5];
    unsigned int mask;
    size_t       precision, offset;
    double       power;
    size_t       i, j;

    HDputs("Testing nbit filter");
    TESTING("    nbit int (setup)");

    /* Define dataset datatype (integer), and set precision, offset */
    datatype  = H5Tcopy(H5T_NATIVE_INT);
    precision = 17; /* precision includes sign bit */
    if (H5Tset_precision(datatype, precision) < 0)
        goto error;
    offset = 4;
    if (H5Tset_offset(datatype, offset) < 0)
        goto error;

    /* Copy to memory datatype before setting order */
    mem_datatype = H5Tcopy(datatype);

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Use nbit filter  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_nbit(dc) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_NBIT_INT_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
        goto error;

    /* Initialize data, assuming size of long long >= size of int */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++) {
            power           = HDpow(2.0, (double)(precision - 1));
            orig_data[i][j] = (int)(((long long)HDrandom() % (long long)power) << offset);

            /* even-numbered values are negtive */
            if ((i * size[1] + j + 1) % 2 == 0)
                orig_data[i][j] = -orig_data[i][j];
        }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test nbit by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit int (write)");

    if (H5Dwrite(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit int (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written
     * Use mask for checking the significant bits, ignoring the padding bits
     */
    mask = ~((unsigned)~0 << (precision + offset)) & ((unsigned)~0 << offset);
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (((unsigned)new_data[i][j] & mask) != ((unsigned)orig_data[i][j] & mask)) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        goto error;
    if (H5Tclose(mem_datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_nbit_int() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_float
 *
 * Purpose:     Tests the float datatype of nbit filter
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_float(hid_t file)
{
    hid_t         dataset, datatype, space, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    /* orig_data[] are initialized to be within the range that can be represented by
     * dataset datatype (no precision loss during datatype conversion)
     */
    float  orig_data[2][5] = {{188384.0f, 19.103516f, -1.0831790e9f, -84.242188f, 5.2045898f},
                             {-49140.0f, 2350.25f, -3.2110596e-1f, 6.4998865e-5f, -0.0f}};
    float  new_data[2][5];
    size_t precision, offset;
    size_t i, j;

    TESTING("    nbit float (setup)");

    /* Define user-defined single-precision floating-point type for dataset */
    datatype = H5Tcopy(H5T_IEEE_F32BE);
    if (H5Tset_fields(datatype, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
        FAIL_STACK_ERROR
    offset = 7;
    if (H5Tset_offset(datatype, offset) < 0)
        FAIL_STACK_ERROR
    precision = 20;
    if (H5Tset_precision(datatype, precision) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_size(datatype, (size_t)4) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_ebias(datatype, (size_t)31) < 0)
        FAIL_STACK_ERROR

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        FAIL_STACK_ERROR

    /* Use nbit filter  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_nbit(dc) < 0)
        FAIL_STACK_ERROR

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_NBIT_FLOAT_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test nbit by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit float (write)");

    if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        FAIL_STACK_ERROR

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit float (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        FAIL_STACK_ERROR

    /* Check that the values read are the same as the values written
     * Assume size of int = size of float
     */
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (HDisnan(orig_data[i][j]))
                continue; /* skip if value is NaN */
            if (!H5_FLT_ABS_EQUAL(new_data[i][j], orig_data[i][j])) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(dc) < 0)
        FAIL_STACK_ERROR
    if (H5Sclose(space) < 0)
        FAIL_STACK_ERROR
    if (H5Dclose(dataset) < 0)
        FAIL_STACK_ERROR

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_nbit_float() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_double
 *
 * Purpose:     Tests the double datatype of nbit filter
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_double(hid_t file)
{
    /* assume unsigned int and float has the same number of bytes */
    hid_t         dataset, datatype, space, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    /* orig_data[] are initialized to be within the range that can be represented by
     * dataset datatype (no precision loss during datatype conversion)
     */
    double orig_data[2][5] = {{(double)1.6081706885101836e+60L, -255.32099170994480f,
                               (double)1.2677579992621376e-61L, 64568.289448797700f,
                               (double)-1.0619721778839084e-75L},
                              {(double)2.1499497833454840e+56L, 6.6562295504670740e-3f, -1.5747263393432150f,
                               1.0711093225222612f, -9.8971679387636870e-1f}};
    double new_data[2][5];
    size_t precision, offset;
    size_t i, j;

    TESTING("    nbit double (setup)");

    /* Define user-defined doule-precision floating-point type for dataset */
    datatype = H5Tcopy(H5T_IEEE_F64BE);
    if (H5Tset_fields(datatype, (size_t)55, (size_t)46, (size_t)9, (size_t)5, (size_t)41) < 0)
        FAIL_STACK_ERROR
    offset = 5;
    if (H5Tset_offset(datatype, offset) < 0)
        FAIL_STACK_ERROR
    precision = 51;
    if (H5Tset_precision(datatype, precision) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_size(datatype, (size_t)8) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_ebias(datatype, (size_t)255) < 0)
        FAIL_STACK_ERROR

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        FAIL_STACK_ERROR

    /* Use nbit filter  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_nbit(dc) < 0)
        FAIL_STACK_ERROR

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_NBIT_DOUBLE_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) <
        0)
        FAIL_STACK_ERROR

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test nbit by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit double (write)");

    if (H5Dwrite(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        FAIL_STACK_ERROR
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit double (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        FAIL_STACK_ERROR

    /* Check that the values read are the same as the values written
     * Assume size of long long = size of double
     */
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (HDisnan(orig_data[i][j]))
                continue; /* skip if value is NaN */
            if (!H5_DBL_ABS_EQUAL(new_data[i][j], orig_data[i][j])) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(dc) < 0)
        FAIL_STACK_ERROR
    if (H5Sclose(space) < 0)
        FAIL_STACK_ERROR
    if (H5Dclose(dataset) < 0)
        FAIL_STACK_ERROR

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_nbit_double() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_array
 *
 * Purpose:     Tests the simple version array datatype for nbit filter
 *
 * Return:      Success:        0
 *              Failure:        -1
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_array(hid_t file)
{
    hid_t         dataset, base_datatype, array_datatype, space, dc;
    hid_t         mem_base_datatype, mem_array_datatype;
    const hsize_t size[2]       = {2, 5};
    const hsize_t adims[2]      = {3, 2};
    const hsize_t chunk_size[2] = {2, 5};
    unsigned int  orig_data[2][5][3][2];
    unsigned int  new_data[2][5][3][2];
    size_t        precision, offset;
    double        power;
    size_t        i, j, m, n;

    TESTING("    nbit array (setup)");

    /* Define dataset array datatype's base datatype and set precision, offset */
    base_datatype = H5Tcopy(H5T_NATIVE_UINT);
    precision     = 22;
    if (H5Tset_precision(base_datatype, precision) < 0)
        goto error;
    offset = 7;
    if (H5Tset_offset(base_datatype, offset) < 0)
        goto error;

    /* Copy to memory array datatype's base datatype before setting order */
    mem_base_datatype = H5Tcopy(base_datatype);

    /* Set order of dataset array datatype's base datatype */
    if (H5Tset_order(base_datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create dataset array datatype */
    array_datatype = H5Tarray_create2(base_datatype, 2, adims);

    /* Create memory array datatype */
    mem_array_datatype = H5Tarray_create2(mem_base_datatype, 2, adims);

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Use nbit filter  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_nbit(dc) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset =
             H5Dcreate2(file, DSET_NBIT_ARRAY_NAME, array_datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
        goto error;

    /* Initialize data, assuming size of long long >= size of unsigned int */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++)
            for (m = 0; m < (size_t)adims[0]; m++)
                for (n = 0; n < (size_t)adims[1]; n++) {
                    power = HDpow(2.0, (double)precision);
                    orig_data[i][j][m][n] =
                        (unsigned int)(((long long)HDrandom() % (long long)power) << offset);
                } /* end for */
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test nbit by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit array (write)");

    if (H5Dwrite(dataset, mem_array_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        goto error;

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit array (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, mem_array_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written
     */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++)
            for (m = 0; m < (size_t)adims[0]; m++)
                for (n = 0; n < (size_t)adims[1]; n++) {
                    if (new_data[i][j][m][n] != orig_data[i][j][m][n]) {
                        H5_FAILED();
                        HDprintf("    Read different values than written.\n");
                        HDprintf("    At index %lu,%lu,%lu,%lu\n", (unsigned long)i, (unsigned long)j,
                                 (unsigned long)m, (unsigned long)n);
                        goto error;
                    }
                }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(array_datatype) < 0)
        goto error;
    if (H5Tclose(base_datatype) < 0)
        goto error;
    if (H5Tclose(mem_array_datatype) < 0)
        goto error;
    if (H5Tclose(mem_base_datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_nbit_array() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_compound
 *
 * Purpose:     Tests a simple version of compound datatype of nbit filter
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Tuesday, Jan. 18th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_compound(hid_t file)
{
    typedef struct { /* Struct with atomic fields */
        int   i;
        char  c;
        short s;
        float f;
    } atomic;
    hid_t         i_tid, c_tid, s_tid, f_tid;
    hid_t         cmpd_tid;     /* atomic compound datatype */
    hid_t         mem_cmpd_tid; /* memory atomic compound datatype */
    size_t        precision[3] = {15, 7, 10};
    size_t        offset[3]    = {9, 0, 3};
    hid_t         dataset, space, dc;
    const hsize_t size[2]         = {2, 5};
    const hsize_t chunk_size[2]   = {2, 5};
    const float   float_val[2][5] = {{188384.0F, 19.103516F, -1.0831790e9F, -84.242188F, 5.2045898F},
                                   {-49140.0F, 2350.25F, -3.2110596e-1F, 6.4998865e-5F, -0.0F}};
    atomic        orig_data[2][5];
    atomic        new_data[2][5];
    unsigned int  i_mask, s_mask, c_mask;
    double        power;
    size_t        i, j;

    TESTING("    nbit compound (setup)");

    /* Define datatypes of members of compound datatype */
    if ((i_tid = H5Tcopy(H5T_NATIVE_INT)) < 0)
        FAIL_STACK_ERROR
    if ((c_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
        FAIL_STACK_ERROR
    if ((s_tid = H5Tcopy(H5T_NATIVE_SHORT)) < 0)
        FAIL_STACK_ERROR
    if ((f_tid = H5Tcopy(H5T_IEEE_F32BE)) < 0)
        FAIL_STACK_ERROR

    /* Set precision and offset etc. */
    if (H5Tset_precision(i_tid, precision[0]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(i_tid, offset[0]) < 0)
        FAIL_STACK_ERROR

    if (H5Tset_precision(c_tid, precision[1]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(c_tid, offset[1]) < 0)
        FAIL_STACK_ERROR

    if (H5Tset_precision(s_tid, precision[2]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(s_tid, offset[2]) < 0)
        FAIL_STACK_ERROR

    if (H5Tset_fields(f_tid, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(f_tid, (size_t)7) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_precision(f_tid, (size_t)20) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_size(f_tid, (size_t)4) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_ebias(f_tid, (size_t)31) < 0)
        FAIL_STACK_ERROR

    /* Create a memory compound datatype before setting the order */
    if ((mem_cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid, "c", HOFFSET(atomic, c), c_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid, "s", HOFFSET(atomic, s), s_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid, "f", HOFFSET(atomic, f), H5T_NATIVE_FLOAT) < 0)
        FAIL_STACK_ERROR

    /* Create a dataset compound datatype and insert some atomic types */
    if ((cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid, "c", HOFFSET(atomic, c), c_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid, "s", HOFFSET(atomic, s), s_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid, "f", HOFFSET(atomic, f), f_tid) < 0)
        FAIL_STACK_ERROR

    /* Set order of dataset compound datatype */
    if (H5Tset_order(cmpd_tid, H5T_ORDER_BE) < 0)
        FAIL_STACK_ERROR

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        FAIL_STACK_ERROR

    /* Use nbit filter  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_nbit(dc) < 0)
        FAIL_STACK_ERROR

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME, cmpd_tid, space, H5P_DEFAULT, dc, H5P_DEFAULT)) <
        0)
        FAIL_STACK_ERROR

    /* Initialize data, assuming size of long long >= size of member datatypes */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++) {
            power             = HDpow(2.0, (double)(precision[0] - 1));
            orig_data[i][j].i = (int)(((long long)HDrandom() % (long long)power) << offset[0]);
            power             = HDpow(2.0, (double)(precision[1] - 1));
            orig_data[i][j].c = (char)(((long long)HDrandom() % (long long)power) << offset[1]);
            power             = HDpow(2.0, (double)(precision[2] - 1));
            orig_data[i][j].s = (short)(((long long)HDrandom() % (long long)power) << offset[2]);
            orig_data[i][j].f = float_val[i][j];

            /* some even-numbered integer values are negtive */
            if ((i * size[1] + j + 1) % 2 == 0) {
                orig_data[i][j].i = -orig_data[i][j].i;
                orig_data[i][j].s = (short)-orig_data[i][j].s;
            }
        }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test nbit by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit compound (write)");

    if (H5Dwrite(dataset, mem_cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        FAIL_STACK_ERROR
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit compound (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, mem_cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        FAIL_STACK_ERROR

    /* Check that the values read are the same as the values written
     * Use mask for checking the significant bits, ignoring the padding bits
     */
    i_mask = ~((unsigned)~0 << (precision[0] + offset[0])) & ((unsigned)~0 << offset[0]);
    c_mask = ~((unsigned)~0 << (precision[1] + offset[1])) & ((unsigned)~0 << offset[1]);
    s_mask = ~((unsigned)~0 << (precision[2] + offset[2])) & ((unsigned)~0 << offset[2]);
    for (i = 0; i < size[0]; i++) {
        for (j = 0; j < size[1]; j++) {
            if (((unsigned)new_data[i][j].i & i_mask) != ((unsigned)orig_data[i][j].i & i_mask) ||
                ((unsigned)new_data[i][j].c & c_mask) != ((unsigned)orig_data[i][j].c & c_mask) ||
                ((unsigned)new_data[i][j].s & s_mask) != ((unsigned)orig_data[i][j].s & s_mask) ||
                (!HDisnan(orig_data[i][j].f) && !H5_FLT_ABS_EQUAL(new_data[i][j].f, orig_data[i][j].f))) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(i_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(c_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(s_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(f_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(cmpd_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(mem_cmpd_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(dc) < 0)
        FAIL_STACK_ERROR
    if (H5Sclose(space) < 0)
        FAIL_STACK_ERROR
    if (H5Dclose(dataset) < 0)
        FAIL_STACK_ERROR

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_nbit_compound() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_compound_2
 *
 * Purpose:     Tests a complex version of compound datatype of nbit filter
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Tuesday, Jan. 18th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_compound_2(hid_t file)
{
    typedef struct { /* Struct with atomic fields */
        int   i;
        char  c;
        short s;
        float f;
    } atomic;

    typedef struct { /* Struct with complex fields */
        atomic       a;
        unsigned int v;
        char         b[2][2];
        atomic       d[2][2];
    } complex;

    hid_t         i_tid, c_tid, s_tid, f_tid, v_tid;
    hid_t         cmpd_tid1;           /* atomic compound datatype */
    hid_t         cmpd_tid2;           /* complex compound datatype */
    hid_t         mem_cmpd_tid1;       /* memory atomic compound datatype */
    hid_t         mem_cmpd_tid2;       /* memory complex compound datatype */
    hid_t         base_tid;            /* simple array datatype's base datatype */
    hid_t         array_tid;           /* simple array datatype */
    hid_t         array_cmplx_tid;     /* complex array datatype */
    hid_t         mem_array_cmplx_tid; /* memory complex array datatype */
    const hsize_t array_dims[2] = {2, 2};
    size_t        precision[5]  = {31, 8, 10, 23, 8};
    size_t        offset[5]     = {1, 0, 3, 5, 0};
    hid_t         dataset, space, dc;
    const hsize_t size[2]         = {2, 5};
    const hsize_t chunk_size[2]   = {2, 5};
    const float   float_val[2][5] = {{188384.0F, 19.103516F, -1.0831790e9F, -84.242188F, 5.2045898F},
                                   {-49140.0F, 2350.25F, -3.2110596e-1F, 6.4998865e-5F, -0.0F}};
    complex       orig_data[2][5];
    complex       new_data[2][5];
    unsigned int  i_mask, s_mask, c_mask, b_mask;
    double        power;
    size_t        i, j, m, n, b_failed, d_failed;

    TESTING("    nbit compound complex (setup)");

    /* Define datatypes of members of compound datatype */
    if ((i_tid = H5Tcopy(H5T_NATIVE_INT)) < 0)
        FAIL_STACK_ERROR
    if ((c_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
        FAIL_STACK_ERROR
    if ((s_tid = H5Tcopy(H5T_NATIVE_SHORT)) < 0)
        FAIL_STACK_ERROR
    if ((v_tid = H5Tcopy(H5T_NATIVE_UINT)) < 0)
        FAIL_STACK_ERROR
    if ((f_tid = H5Tcopy(H5T_IEEE_F32BE)) < 0)
        FAIL_STACK_ERROR

    /* Set precision and offset etc. of atomic compound datatype members */
    if (H5Tset_precision(i_tid, precision[0]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(i_tid, offset[0]) < 0)
        FAIL_STACK_ERROR

    if (H5Tset_precision(c_tid, precision[1]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(c_tid, offset[1]) < 0)
        FAIL_STACK_ERROR

    if (H5Tset_precision(s_tid, precision[2]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(s_tid, offset[2]) < 0)
        FAIL_STACK_ERROR

    if (H5Tset_fields(f_tid, (size_t)26, (size_t)20, (size_t)6, (size_t)7, (size_t)13) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(f_tid, (size_t)7) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_precision(f_tid, (size_t)20) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_size(f_tid, (size_t)4) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_ebias(f_tid, (size_t)31) < 0)
        FAIL_STACK_ERROR

    /* Create a memory atomic compound datatype before setting the order */
    if ((mem_cmpd_tid1 = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid1, "i", HOFFSET(atomic, i), i_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid1, "c", HOFFSET(atomic, c), c_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid1, "s", HOFFSET(atomic, s), s_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid1, "f", HOFFSET(atomic, f), H5T_NATIVE_FLOAT) < 0)
        FAIL_STACK_ERROR

    /* Create a dataset atomic compound datatype and insert some atomic types */
    if ((cmpd_tid1 = H5Tcreate(H5T_COMPOUND, sizeof(atomic))) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid1, "i", HOFFSET(atomic, i), i_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid1, "c", HOFFSET(atomic, c), c_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid1, "s", HOFFSET(atomic, s), s_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid1, "f", HOFFSET(atomic, f), f_tid) < 0)
        FAIL_STACK_ERROR

    /* Set order of dataset compound datatype */
    if (H5Tset_order(cmpd_tid1, H5T_ORDER_BE) < 0)
        FAIL_STACK_ERROR

    /* Set precision and offset of the other data member */
    if (H5Tset_precision(v_tid, precision[3]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(v_tid, offset[3]) < 0)
        FAIL_STACK_ERROR

    /* Create the simple array datatype */
    if ((base_tid = H5Tcopy(H5T_NATIVE_CHAR)) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_precision(base_tid, precision[4]) < 0)
        FAIL_STACK_ERROR
    if (H5Tset_offset(base_tid, offset[4]) < 0)
        FAIL_STACK_ERROR
    if ((array_tid = H5Tarray_create2(base_tid, 2, array_dims)) < 0)
        FAIL_STACK_ERROR

    /* Create the complex memory and dataset array datatype */
    if ((array_cmplx_tid = H5Tarray_create2(cmpd_tid1, 2, array_dims)) < 0)
        FAIL_STACK_ERROR
    if ((mem_array_cmplx_tid = H5Tarray_create2(mem_cmpd_tid1, 2, array_dims)) < 0)
        FAIL_STACK_ERROR

    /* Create a memory complex compound datatype before setting the order */
    if ((mem_cmpd_tid2 = H5Tcreate(H5T_COMPOUND, sizeof(complex))) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid2, "a", HOFFSET(complex, a), mem_cmpd_tid1) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid2, "v", HOFFSET(complex, v), v_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid2, "b", HOFFSET(complex, b), array_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(mem_cmpd_tid2, "d", HOFFSET(complex, d), mem_array_cmplx_tid) < 0)
        FAIL_STACK_ERROR

    /* Set order of dataset other complex compound member datatype */
    if (H5Tset_order(v_tid, H5T_ORDER_BE) < 0)
        FAIL_STACK_ERROR

    /* Create a dataset complex compound datatype and insert members */
    if ((cmpd_tid2 = H5Tcreate(H5T_COMPOUND, sizeof(complex))) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid2, "a", HOFFSET(complex, a), cmpd_tid1) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid2, "v", HOFFSET(complex, v), v_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid2, "b", HOFFSET(complex, b), array_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tinsert(cmpd_tid2, "d", HOFFSET(complex, d), array_cmplx_tid) < 0)
        FAIL_STACK_ERROR

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        FAIL_STACK_ERROR

    /* Use nbit filter  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_nbit(dc) < 0)
        FAIL_STACK_ERROR

    /* Create the dataset */
    if ((dataset =
             H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME_2, cmpd_tid2, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR

    /* Initialize data, assuming size of long long >= size of member datatypes */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++) {
            power               = HDpow(2.0, (double)(precision[0] - 1));
            orig_data[i][j].a.i = (int)(((long long)HDrandom() % (long long)power) << offset[0]);
            power               = HDpow(2.0, (double)(precision[1] - 1));
            orig_data[i][j].a.c = (char)(((long long)HDrandom() % (long long)power) << offset[1]);
            power               = HDpow(2.0, (double)(precision[2] - 1));
            orig_data[i][j].a.s = (short)(-(((long long)HDrandom() % (long long)power) << offset[2]));
            orig_data[i][j].a.f = float_val[i][j];

            power             = HDpow(2.0, (double)precision[3]);
            orig_data[i][j].v = (unsigned int)(((long long)HDrandom() % (long long)power) << offset[3]);

            for (m = 0; m < (size_t)array_dims[0]; m++)
                for (n = 0; n < (size_t)array_dims[1]; n++) {
                    power                   = HDpow(2.0, (double)(precision[4] - 1));
                    orig_data[i][j].b[m][n] = (char)(((long long)HDrandom() % (long long)power) << offset[4]);
                } /* end for */

            for (m = 0; m < (size_t)array_dims[0]; m++)
                for (n = 0; n < (size_t)array_dims[1]; n++) {
                    power = HDpow(2.0, (double)(precision[0] - 1));
                    orig_data[i][j].d[m][n].i =
                        (int)(-(((long long)HDrandom() % (long long)power) << offset[0]));
                    power = HDpow(2.0, (double)(precision[1] - 1));
                    orig_data[i][j].d[m][n].c =
                        (char)(((long long)HDrandom() % (long long)power) << offset[1]);
                    power = HDpow(2.0, (double)(precision[2] - 1));
                    orig_data[i][j].d[m][n].s =
                        (short)(((long long)HDrandom() % (long long)power) << offset[2]);
                    orig_data[i][j].d[m][n].f = float_val[i][j];
                } /* end for */
        }         /* end for */

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test nbit by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit compound complex (write)");

    if (H5Dwrite(dataset, mem_cmpd_tid2, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        FAIL_STACK_ERROR
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit compound complex (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, mem_cmpd_tid2, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        FAIL_STACK_ERROR

    /* Check that the values read are the same as the values written
     * Use mask for checking the significant bits, ignoring the padding bits
     */
    /* The original code
     *   i_mask = ~((unsigned)~0 << (precision[0] + offset[0])) & ((unsigned)~0 << offset[0]);
     * left shift a 32-bit integer for 32-bit.  The result is undefined by C language.  A user
     * discovered it using clang compiler with -fcatch-undefined-behavior option (see Issue 7674
     * in Jira).  So I changed it in a funny way as below to avoid it. SLU - 2011/8/11
     */
    if (sizeof(unsigned) > 4)
        i_mask = ~((unsigned)~0 << (precision[0] + offset[0])) & ((unsigned)~0 << offset[0]);
    else {
        i_mask = 0xffffffff;
        i_mask = i_mask & ((unsigned)~0 << offset[0]);
    }
    c_mask = ~((unsigned)~0 << (precision[1] + offset[1])) & ((unsigned)~0 << offset[1]);
    s_mask = ~((unsigned)~0 << (precision[2] + offset[2])) & ((unsigned)~0 << offset[2]);
    b_mask = ~((unsigned)~0 << (precision[4] + offset[4])) & ((unsigned)~0 << offset[4]);
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            b_failed = 0;
            d_failed = 0;

            for (m = 0; m < (size_t)array_dims[0]; m++)
                for (n = 0; n < (size_t)array_dims[1]; n++)
                    if (((unsigned)new_data[i][j].b[m][n] & b_mask) !=
                        ((unsigned)orig_data[i][j].b[m][n] & b_mask)) {
                        b_failed = 1;
                        goto out;
                    }

            for (m = 0; m < (size_t)array_dims[0]; m++)
                for (n = 0; n < (size_t)array_dims[1]; n++)
                    if (((unsigned)new_data[i][j].d[m][n].i & i_mask) !=
                            ((unsigned)orig_data[i][j].d[m][n].i & i_mask) ||
                        ((unsigned)new_data[i][j].d[m][n].c & c_mask) !=
                            ((unsigned)orig_data[i][j].d[m][n].c & c_mask) ||
                        ((unsigned)new_data[i][j].d[m][n].s & s_mask) !=
                            ((unsigned)orig_data[i][j].d[m][n].s & s_mask) ||
                        (!HDisnan(new_data[i][j].d[m][n].f) &&
                         !H5_FLT_ABS_EQUAL(new_data[i][j].d[m][n].f, new_data[i][j].d[m][n].f))) {
                        d_failed = 1;
                        goto out;
                    }

out:
            if (((unsigned)new_data[i][j].a.i & i_mask) != ((unsigned)orig_data[i][j].a.i & i_mask) ||
                ((unsigned)new_data[i][j].a.c & c_mask) != ((unsigned)orig_data[i][j].a.c & c_mask) ||
                ((unsigned)new_data[i][j].a.s & s_mask) != ((unsigned)orig_data[i][j].a.s & s_mask) ||
                (!HDisnan(new_data[i][j].a.f) && !H5_FLT_ABS_EQUAL(new_data[i][j].a.f, new_data[i][j].a.f)) ||
                new_data[i][j].v != orig_data[i][j].v || b_failed || d_failed) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(i_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(c_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(s_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(f_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(v_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(cmpd_tid2) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(cmpd_tid1) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(mem_cmpd_tid2) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(mem_cmpd_tid1) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(array_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(base_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(array_cmplx_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Tclose(mem_array_cmplx_tid) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(dc) < 0)
        FAIL_STACK_ERROR
    if (H5Sclose(space) < 0)
        FAIL_STACK_ERROR
    if (H5Dclose(dataset) < 0)
        FAIL_STACK_ERROR

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_nbit_compound_2() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_compound_3
 *
 * Purpose:     Tests no-op datatypes in compound datatype for nbit filter
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Thursday, Mar. 31th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_compound_3(hid_t file)
{
    typedef struct {           /* Struct with some no-op type fields */
        int           i;       /* integer field, NOT a no-op type */
        char          str[30]; /* fixed-length string, no-op type */
        char *        vl_str;  /* varible-length string, no-op type */
        hvl_t         v;       /* VL datatype field, no-op type */
        hobj_ref_t    r;       /* Object reference field, no-op type */
        unsigned char o[5];    /* Opaque field, no-op type */
    } atomic;
    hid_t         i_tid, str_tid, vl_str_tid, v_tid, o_tid;
    hid_t         cmpd_tid; /* atomic compound datatype */
    hid_t         dataset, space, dc, obj_ref_dataset = -1;
    const hsize_t size[1]       = {5};
    const hsize_t chunk_size[1] = {5};
    atomic        orig_data[5];
    atomic        new_data[5];
    double        power;
    size_t        i, k, j;

    TESTING("    nbit compound with no-op type (setup)");

    /* Define datatypes of members of compound datatype */
    i_tid = H5Tcopy(H5T_NATIVE_INT);
    if (H5Tset_precision(i_tid, (size_t)17) < 0)
        goto error;

    str_tid = H5Tcopy(H5T_C_S1);
    if (H5Tset_size(str_tid, (size_t)30) < 0)
        goto error;

    vl_str_tid = H5Tcopy(H5T_C_S1);
    if (H5Tset_size(vl_str_tid, H5T_VARIABLE) < 0)
        goto error;

    if ((v_tid = H5Tvlen_create(H5T_NATIVE_UINT)) < 0)
        goto error;

    if ((o_tid = H5Tcreate(H5T_OPAQUE, (size_t)5)) < 0)
        goto error;
    if (H5Tset_tag(o_tid, "testing opaque field") < 0)
        goto error;

    /* Create a dataset compound datatype and insert some atomic types */
    cmpd_tid = H5Tcreate(H5T_COMPOUND, sizeof(atomic));
    if (H5Tinsert(cmpd_tid, "i", HOFFSET(atomic, i), i_tid) < 0)
        goto error;
    if (H5Tinsert(cmpd_tid, "str", HOFFSET(atomic, str), str_tid) < 0)
        goto error;
    if (H5Tinsert(cmpd_tid, "vl_str", HOFFSET(atomic, vl_str), vl_str_tid) < 0)
        goto error;
    if (H5Tinsert(cmpd_tid, "v", HOFFSET(atomic, v), v_tid) < 0)
        goto error;
    if (H5Tinsert(cmpd_tid, "r", HOFFSET(atomic, r), H5T_STD_REF_OBJ) < 0)
        goto error;
    if (H5Tinsert(cmpd_tid, "o", HOFFSET(atomic, o), o_tid) < 0)
        goto error;

    /* Create the data space */
    if ((space = H5Screate_simple(1, size, NULL)) < 0)
        goto error;

    /* Use nbit filter  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dc, 1, chunk_size) < 0)
        goto error;
    if (H5Pset_nbit(dc) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset =
             H5Dcreate2(file, DSET_NBIT_COMPOUND_NAME_3, cmpd_tid, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
        goto error;

    /* Create the dataset object reference points to */
    if ((obj_ref_dataset = H5Dcreate2(file, "nbit_obj_ref", H5T_NATIVE_INT, space, H5P_DEFAULT, H5P_DEFAULT,
                                      H5P_DEFAULT)) < 0)
        goto error;

    /* Initialize data */
    for (i = 0; i < (size_t)size[0]; i++) {
        power = HDpow(2.0, 17.0 - 1.0);
        HDmemset(&orig_data[i], 0, sizeof(orig_data[i]));
        orig_data[i].i = (int)(HDrandom() % (long)power);
        HDstrcpy(orig_data[i].str, "fixed-length C string");
        orig_data[i].vl_str = HDstrdup("variable-length C string");

        orig_data[i].v.p   = HDmalloc((size_t)(i + 1) * sizeof(unsigned int));
        orig_data[i].v.len = (size_t)i + 1;
        for (k = 0; k < (i + 1); k++)
            ((unsigned int *)orig_data[i].v.p)[k] = (unsigned int)(i * 100 + k);

        /* Create reference to the dataset "nbit_obj_ref" */
        if (H5Rcreate(&orig_data[i].r, file, "nbit_obj_ref", H5R_OBJECT, (hid_t)-1) < 0)
            goto error;

        for (j = 0; j < 5; j++)
            orig_data[i].o[j] = (unsigned char)(i + j);
    }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test nbit by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit compound with no-op type (write)");

    if (H5Dwrite(dataset, cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    nbit compound with no-op type (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, cmpd_tid, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)size[0]; i++) {
        if (new_data[i].i != orig_data[i].i || HDstrcmp(new_data[i].str, orig_data[i].str) != 0 ||
            HDstrcmp(new_data[i].vl_str, orig_data[i].vl_str) != 0 ||
            new_data[i].v.len != orig_data[i].v.len || new_data[i].r != orig_data[i].r) {
            H5_FAILED();
            HDprintf("    Read different values than written.\n");
            HDprintf("    At index %lu\n", (unsigned long)i);
            goto error;
        }

        for (k = 0; k < i + 1; k++)
            if (((unsigned int *)orig_data[i].v.p)[k] != ((unsigned int *)new_data[i].v.p)[k]) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu\n", (unsigned long)i);
                goto error;
            }

        for (j = 0; j < 5; j++)
            if (orig_data[i].o[j] != new_data[i].o[j]) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu\n", (unsigned long)i);
                goto error;
            }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Treclaim(cmpd_tid, space, H5P_DEFAULT, new_data) < 0)
        goto error;
    if (H5Treclaim(cmpd_tid, space, H5P_DEFAULT, orig_data) < 0)
        goto error;
    if (H5Tclose(i_tid) < 0)
        goto error;
    if (H5Tclose(str_tid) < 0)
        goto error;
    if (H5Tclose(vl_str_tid) < 0)
        goto error;
    if (H5Tclose(v_tid) < 0)
        goto error;
    if (H5Tclose(o_tid) < 0)
        goto error;
    if (H5Tclose(cmpd_tid) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(obj_ref_dataset) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;

error:
    return FAIL;
} /* end test_nbit_compound_3() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_int_size
 *
 * Purpose:     Tests the correct size of the integer datatype for nbit filter
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Raymond Lu
 *              19 November 2010
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_int_size(hid_t file)
{
    hid_t   dataspace, dataset, datatype, mem_datatype, dset_create_props;
    hsize_t dims[2], chunk_size[2];
    hsize_t dset_size = 0;
    int **  orig      = NULL;
    int *   orig_data = NULL;
    double  power;
    int     i, j;
    size_t  precision, offset;

    TESTING("    nbit integer dataset size");

    /* Set up data array */
    if (NULL == (orig_data = (int *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(int))))
        TEST_ERROR;
    if (NULL == (orig = (int **)HDcalloc(DSET_DIM1, sizeof(orig_data))))
        TEST_ERROR;
    for (i = 0; i < DSET_DIM1; i++)
        orig[i] = orig_data + (i * DSET_DIM2);

    /* Define dataset datatype (integer), and set precision, offset */
    if ((datatype = H5Tcopy(H5T_NATIVE_INT)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Tcopy failed\n", __LINE__);
        goto error;
    }

    precision = 16; /* precision includes sign bit */
    if (H5Tset_precision(datatype, precision) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_precision failed\n", __LINE__);
        goto error;
    }

    offset = 8;
    if (H5Tset_offset(datatype, offset) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Tset_offset failed\n", __LINE__);
        goto error;
    }

    /* Copy to memory datatype */
    if ((mem_datatype = H5Tcopy(datatype)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Tcopy failed\n", __LINE__);
        goto error;
    }

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_order failed\n", __LINE__);
        goto error;
    }

    if (H5Tset_size(datatype, 4) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_size failed\n", __LINE__);
        goto error;
    }

    /* Initiliaze data buffer with random data within correct range
     * corresponding to the memory datatype's precision and offset.
     */
    for (i = 0; i < DSET_DIM1; i++)
        for (j = 0; j < DSET_DIM2; j++) {
            power      = HDpow(2.0, (double)(precision - 1));
            orig[i][j] = HDrandom() % (int)power << offset;
        }

    /* Describe the dataspace. */
    dims[0] = DSET_DIM1;
    dims[1] = DSET_DIM2;
    if ((dataspace = H5Screate_simple(2, dims, NULL)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pcreate failed\n", __LINE__);
        goto error;
    }

    /*
     * Set the dataset creation property list to specify the chunks
     */
    chunk_size[0] = DSET_DIM1 / 10;
    chunk_size[1] = DSET_DIM2 / 10;
    if ((dset_create_props = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pcreate failed\n", __LINE__);
        goto error;
    }

    if (H5Pset_chunk(dset_create_props, 2, chunk_size) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_chunk failed\n", __LINE__);
        goto error;
    }

    /*
     * Set for n-bit compression
     */
    if (H5Pset_nbit(dset_create_props) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_nbit failed\n", __LINE__);
        goto error;
    }

    /*
     * Create a new dataset within the file.
     */
    if ((dataset = H5Dcreate2(file, DSET_NBIT_INT_SIZE_NAME, datatype, dataspace, H5P_DEFAULT,
                              dset_create_props, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5dwrite failed\n", __LINE__);
        goto error;
    }

    /*
     * Write the array to the file.
     */
    if (H5Dwrite(dataset, mem_datatype, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: H5Dwrite failed\n", __LINE__);
        goto error;
    }

    /*
     * Get the precision of the data type
     */
    if ((precision = H5Tget_precision(datatype)) == 0) {
        H5_FAILED();
        HDprintf("    Line %d: wrong precision size: %zu\n", __LINE__, precision);
        goto error;
    }

    /*
     * The size of the dataset after compression should around 2 * DSET_DIM1 * DSET_DIM2
     */
    if ((dset_size = H5Dget_storage_size(dataset)) < DSET_DIM1 * DSET_DIM2 * (precision / 8) ||
        dset_size > DSET_DIM1 * DSET_DIM2 * (precision / 8) + 1 * KB) {
        H5_FAILED();
        HDfprintf(stdout, "    Line %d: wrong dataset size: %" PRIuHSIZE "\n", __LINE__, dset_size);
        goto error;
    }

    H5Tclose(datatype);
    H5Tclose(mem_datatype);
    H5Dclose(dataset);
    H5Sclose(dataspace);
    H5Pclose(dset_create_props);

    HDfree(orig);
    HDfree(orig_data);

    PASSED();

    return SUCCEED;

error:
    HDfree(orig);
    HDfree(orig_data);

    return FAIL;
} /* end test_nbit_int_size() */

/*-------------------------------------------------------------------------
 * Function:    test_nbit_flt_size
 *
 * Purpose:     Tests the correct size of the floating-number datatype for
 *              nbit filter
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Raymond Lu
 *              19 November 2010
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_nbit_flt_size(hid_t file)
{
    hid_t   dataspace, dataset, datatype, dset_create_props;
    hsize_t dims[2], chunk_size[2];
    hsize_t dset_size = 0;
    float **orig      = NULL;
    float * orig_data = NULL;
    int     i, j;
    size_t  precision, offset;
    size_t  spos, epos, esize, mpos, msize;

    TESTING("    nbit floating-number dataset size");

    /* Set up data array */
    if (NULL == (orig_data = (float *)HDcalloc(DSET_DIM1 * DSET_DIM2, sizeof(float))))
        TEST_ERROR;
    if (NULL == (orig = (float **)HDcalloc(DSET_DIM1, sizeof(orig_data))))
        TEST_ERROR;
    for (i = 0; i < DSET_DIM1; i++)
        orig[i] = orig_data + (i * DSET_DIM2);

    /* Define floating-point type for dataset
     *-------------------------------------------------------------------
     * size=4 byte, precision=16 bits, offset=8 bits,
     * mantissa size=9 bits, mantissa position=8,
     * exponent size=6 bits, exponent position=17,
     * exponent bias=31.
     * It can be illustrated in little-endian order as:
     * (S - sign bit, E - exponent bit, M - mantissa bit,
     *  ? - padding bit)
     *
     *           3        2        1        0
     *       ???????? SEEEEEEM MMMMMMMM ????????
     *
     * To create a new floating-point type, the following
     * properties must be set in the order of
     *     set fields -> set offset -> set precision -> set size.
     * All these properties must be set before the type can function.
     * Other properties can be set anytime. Derived type size cannot
     * be expanded bigger than original size but can be decreased.
     * There should be no holes among the significant bits. Exponent
     * bias usually is set 2^(n-1)-1, where n is the exponent size.
     *-------------------------------------------------------------------*/
    if ((datatype = H5Tcopy(H5T_IEEE_F32LE)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Tcopy failed\n", __LINE__);
        goto error;
    } /* end if */

    msize     = 9;
    spos      = 23;
    epos      = 17;
    esize     = 6;
    mpos      = 8;
    offset    = 8;
    precision = 16;

    if (H5Tset_fields(datatype, spos, epos, esize, mpos, msize) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Tset_fields failed\n", __LINE__);
        goto error;
    } /* end if */

    if (H5Tset_offset(datatype, offset) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Tset_offset failed\n", __LINE__);
        goto error;
    } /* end if */

    if (H5Tset_precision(datatype, precision) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Tset_precision failed\n", __LINE__);
        goto error;
    } /* end if */

    if (H5Tset_size(datatype, 4) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_size failed\n", __LINE__);
        goto error;
    } /* end if */

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_order failed\n", __LINE__);
        goto error;
    } /* end if */

    if (H5Tset_ebias(datatype, 31) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_size failed\n", __LINE__);
        goto error;
    } /* end if */

    /*
     * Initiliaze data buffer with random data
     */
    for (i = 0; i < DSET_DIM1; i++)
        for (j = 0; j < DSET_DIM2; j++)
            orig[i][j] = (float)(HDrandom() % 1234567) / 2;

    /* Describe the dataspace. */
    dims[0] = DSET_DIM1;
    dims[1] = DSET_DIM2;
    if ((dataspace = H5Screate_simple(2, dims, NULL)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pcreate failed\n", __LINE__);
        goto error;
    } /* end if */

    /*
     * Set the dataset creation property list to specify the chunks
     */
    chunk_size[0] = DSET_DIM1 / 10;
    chunk_size[1] = DSET_DIM2 / 10;
    if ((dset_create_props = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pcreate failed\n", __LINE__);
        goto error;
    } /* end if */

    if (H5Pset_chunk(dset_create_props, 2, chunk_size) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_chunk failed\n", __LINE__);
        goto error;
    } /* end if */

    /*
     * Set for n-bit compression
     */
    if (H5Pset_nbit(dset_create_props) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5Pset_nbit failed\n", __LINE__);
        goto error;
    } /* end if */

    /*
     * Create a new dataset within the file.
     */
    if ((dataset = H5Dcreate2(file, DSET_NBIT_FLT_SIZE_NAME, datatype, dataspace, H5P_DEFAULT,
                              dset_create_props, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    line %d: H5dwrite failed\n", __LINE__);
        goto error;
    } /* end if */

    /*
     * Write the array to the file.
     */
    if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: H5Dwrite failed\n", __LINE__);
        goto error;
    } /* end if */

    /*
     * Get the precision of the data type
     */
    if ((precision = H5Tget_precision(datatype)) == 0) {
        H5_FAILED();
        HDprintf("    Line %d: wrong precision size: %zu\n", __LINE__, precision);
        goto error;
    } /* end if */

    /*
     * The size of the dataset after compression should around 2 * DSET_DIM1 * DSET_DIM2
     */
    if ((dset_size = H5Dget_storage_size(dataset)) < DSET_DIM1 * DSET_DIM2 * (precision / 8) ||
        dset_size > DSET_DIM1 * DSET_DIM2 * (precision / 8) + 1 * KB) {
        H5_FAILED();
        HDfprintf(stdout, "    Line %d: wrong dataset size: %" PRIuHSIZE "\n", __LINE__, dset_size);
        goto error;
    } /* end if */

    H5Tclose(datatype);
    H5Dclose(dataset);
    H5Sclose(dataspace);
    H5Pclose(dset_create_props);

    PASSED();

    HDfree(orig);
    HDfree(orig_data);

    return SUCCEED;
error:
    HDfree(orig);
    HDfree(orig_data);

    return FAIL;
} /* end test_nbit_flt_size() */

/*-------------------------------------------------------------------------
 * Function:    test_scaleoffset_int
 *
 * Purpose:     Tests the integer datatype for scaleoffset filter
 *              with fill value not defined
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Monday, Feb. 14th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_scaleoffset_int(hid_t file)
{
    hid_t         dataset, datatype, space, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    int           orig_data[2][5];
    int           new_data[2][5];
    size_t        i, j;

    HDputs("Testing scaleoffset filter");
    TESTING("    scaleoffset int without fill value (setup)");

    datatype = H5Tcopy(H5T_NATIVE_INT);

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Create the dataset property list  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;

    /* Fill value undefined */
    if (H5Pset_fill_value(dc, datatype, NULL) < 0)
        goto error;

    /* Set up to use scaleoffset filter, let library calculate minbits */
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_scaleoffset(dc, H5Z_SO_INT, H5Z_SO_INT_MINBITS_DEFAULT) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset =
             H5Dcreate2(file, DSET_SCALEOFFSET_INT_NAME, datatype, space, H5P_DEFAULT, dc, H5P_DEFAULT)) < 0)
        goto error;

    /* Initialize data */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++) {
            orig_data[i][j] = HDrandom() % 10000;

            /* even-numbered values are negtive */
            if ((i * size[1] + j + 1) % 2 == 0)
                orig_data[i][j] = -orig_data[i][j];
        }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test scaleoffset by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset int without fill value (write)");

    if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset int without fill value (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (new_data[i][j] != orig_data[i][j]) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;
error:
    return FAIL;
} /* end test_scaleoffset_int() */

/*-------------------------------------------------------------------------
 * Function:    test_scaleoffset_int_2
 *
 * Purpose:     Tests the integer datatype for scaleoffset filter
 *              with fill value set
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Tuesday, March 15th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_scaleoffset_int_2(hid_t file)
{
    hid_t         dataset, datatype, space, mspace, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    int           orig_data[2][5];
    int           new_data[2][5];
    hsize_t       start[2];  /* Start of hyperslab */
    hsize_t       stride[2]; /* Stride of hyperslab */
    hsize_t       count[2];  /* Block count */
    hsize_t       block[2];  /* Block sizes */
    int           fillval;
    size_t        j;

    TESTING("    scaleoffset int with fill value (setup)");

    datatype = H5Tcopy(H5T_NATIVE_INT);

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create the data space for the dataset */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Create the dataset property list  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;

    /* Set fill value */
    fillval = 10000;
    if (H5Pset_fill_value(dc, H5T_NATIVE_INT, &fillval) < 0)
        goto error;

    /* Set up to use scaleoffset filter, let library calculate minbits */
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_scaleoffset(dc, H5Z_SO_INT, H5Z_SO_INT_MINBITS_DEFAULT) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_INT_NAME_2, datatype, space, H5P_DEFAULT, dc,
                              H5P_DEFAULT)) < 0)
        goto error;

    /* Create the memory data space */
    if ((mspace = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Select hyperslab for data to write, using 1x5 blocks,
     * (1,1) stride and (1,1) count starting at the position (0,0).
     */
    start[0]  = 0;
    start[1]  = 0;
    stride[0] = 1;
    stride[1] = 1;
    count[0]  = 1;
    count[1]  = 1;
    block[0]  = 1;
    block[1]  = 5;
    if (H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start, stride, count, block) < 0)
        goto error;

    /* Initialize data of hyperslab */
    for (j = 0; j < (size_t)size[1]; j++) {
        orig_data[0][j] = (int)HDrandom() % 10000;

        /* even-numbered values are negtive */
        if ((j + 1) % 2 == 0)
            orig_data[0][j] = -orig_data[0][j];
    }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test scaleoffset by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset int with fill value (write)");

    /* only data in the hyperslab will be written, other value should be fill value */
    if (H5Dwrite(dataset, H5T_NATIVE_INT, mspace, mspace, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset int with fill value (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_INT, mspace, mspace, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (j = 0; j < (size_t)size[1]; j++) {
        if (new_data[0][j] != orig_data[0][j]) {
            H5_FAILED();
            HDprintf("    Read different values than written.\n");
            HDprintf("    At index %lu,%lu\n", (unsigned long)0, (unsigned long)j);
            goto error;
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;
error:
    return FAIL;
} /* end test_scaleoffset_int_2() */

/*-------------------------------------------------------------------------
 * Function:    test_scaleoffset_float
 *
 * Purpose:     Tests the float datatype for scaleoffset filter, with fill
 *              value undefined, using variable-minimum-bits method
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Wednesday, Apr. 20th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_scaleoffset_float(hid_t file)
{
    hid_t         dataset, datatype, space, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    float         orig_data[2][5];
    float         new_data[2][5];
    size_t        i, j;

    TESTING("    scaleoffset float without fill value, D-scaling (setup)");

    datatype = H5Tcopy(H5T_NATIVE_FLOAT);

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Create the dataset property list  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;

    /* Fill value undefined */
    if (H5Pset_fill_value(dc, datatype, NULL) < 0)
        goto error;

    /* Set up to use scaleoffset filter, decimal scale factor is 3,
     * use variable-minimum-bits method
     */
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 3) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_FLOAT_NAME, datatype, space, H5P_DEFAULT, dc,
                              H5P_DEFAULT)) < 0)
        goto error;

    /* Initialize data */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++) {
            orig_data[i][j] = (float)(HDrandom() % 100000) / 1000.0F;

            /* even-numbered values are negtive */
            if ((i * size[1] + j + 1) % 2 == 0)
                orig_data[i][j] = -orig_data[i][j];
        }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test scaleoffset by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset float without fill value, D-scaling (write)");

    if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset float without fill value, D-scaling (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_FLOAT, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (HDfabs(new_data[i][j] - orig_data[i][j]) > HDpow(10.0, -3.0)) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;
error:
    return FAIL;
} /* end test_scaleoffset_float() */

/*-------------------------------------------------------------------------
 * Function:    test_scaleoffset_float_2
 *
 * Purpose:     Tests the float datatype for scaleoffset filter, with fill
 *              value set, using variable-minimum-bits method
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Wednesday, Apr. 20th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_scaleoffset_float_2(hid_t file)
{
    hid_t         dataset, datatype, space, mspace, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    float         orig_data[2][5];
    float         new_data[2][5];
    float         fillval;
    hsize_t       start[2];  /* Start of hyperslab */
    hsize_t       stride[2]; /* Stride of hyperslab */
    hsize_t       count[2];  /* Block count */
    hsize_t       block[2];  /* Block sizes */
    size_t        j;

    TESTING("    scaleoffset float with fill value, D-scaling (setup)");

    datatype = H5Tcopy(H5T_NATIVE_FLOAT);

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create the data space for the dataset */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Create the dataset property list  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;

    /* Set fill value */
    fillval = 10000.0F;
    if (H5Pset_fill_value(dc, H5T_NATIVE_FLOAT, &fillval) < 0)
        goto error;

    /* Set up to use scaleoffset filter, decimal scale factor is 3,
     * use variable-minimum-bits method
     */
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 3) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_FLOAT_NAME_2, datatype, space, H5P_DEFAULT, dc,
                              H5P_DEFAULT)) < 0)
        goto error;

    /* Create the memory data space */
    if ((mspace = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Select hyperslab for data to write, using 1x5 blocks,
     * (1,1) stride and (1,1) count starting at the position (0,0).
     */
    start[0]  = 0;
    start[1]  = 0;
    stride[0] = 1;
    stride[1] = 1;
    count[0]  = 1;
    count[1]  = 1;
    block[0]  = 1;
    block[1]  = 5;
    if (H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start, stride, count, block) < 0)
        goto error;

    /* Initialize data of hyperslab */
    for (j = 0; j < (size_t)size[1]; j++) {
        orig_data[0][j] = (float)(HDrandom() % 100000) / 1000.0F;

        /* even-numbered values are negtive */
        if ((j + 1) % 2 == 0)
            orig_data[0][j] = -orig_data[0][j];
    }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test scaleoffset by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset float with fill value, D-scaling (write)");

    /* only data in the hyperslab will be written, other value should be fill value */
    if (H5Dwrite(dataset, H5T_NATIVE_FLOAT, mspace, mspace, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset float with fill value, D-scaling (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_FLOAT, mspace, mspace, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (j = 0; j < (size_t)size[1]; j++) {
        if (HDfabs(new_data[0][j] - orig_data[0][j]) > HDpow(10.0, -3.0)) {
            H5_FAILED();
            HDprintf("    Read different values than written.\n");
            HDprintf("    At index %lu,%lu\n", (unsigned long)0, (unsigned long)j);
            goto error;
        }
    }
    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;
error:
    return FAIL;
} /* end test_scaleoffset_float_2() */

/*-------------------------------------------------------------------------
 * Function:    test_scaleoffset_double
 *
 * Purpose:     Tests the double datatype for scaleoffset filter, with fill
 *              value undefined, using variable-minimum-bits method
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Monday, Apr. 25th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_scaleoffset_double(hid_t file)
{
    hid_t         dataset, datatype, space, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    double        orig_data[2][5];
    double        new_data[2][5];
    size_t        i, j;

    TESTING("    scaleoffset double without fill value, D-scaling (setup)");

    datatype = H5Tcopy(H5T_NATIVE_DOUBLE);

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create the data space */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Create the dataset property list  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;

    /* Fill value undefined */
    if (H5Pset_fill_value(dc, datatype, NULL) < 0)
        goto error;

    /* Set up to use scaleoffset filter, decimal scale factor is 7,
     * use variable-minimum-bits method
     */
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 7) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_DOUBLE_NAME, datatype, space, H5P_DEFAULT, dc,
                              H5P_DEFAULT)) < 0)
        goto error;

    /* Initialize data */
    for (i = 0; i < (size_t)size[0]; i++)
        for (j = 0; j < (size_t)size[1]; j++) {
            orig_data[i][j] = (float)(HDrandom() % 10000000) / 10000000.0F;

            /* even-numbered values are negtive */
            if ((i * size[1] + j + 1) % 2 == 0)
                orig_data[i][j] = -orig_data[i][j];
        }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test scaleoffset by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset double without fill value, D-scaling (write)");

    if (H5Dwrite(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset double without fill value, D-scaling (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)size[0]; i++) {
        for (j = 0; j < (size_t)size[1]; j++) {
            if (HDfabs(new_data[i][j] - orig_data[i][j]) > HDpow(10.0, -7.0)) {
                H5_FAILED();
                HDprintf("    Read different values than written.\n");
                HDprintf("    At index %lu,%lu\n", (unsigned long)i, (unsigned long)j);
                goto error;
            }
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;
error:
    return FAIL;
} /* end test_scaleoffset_double() */

/*-------------------------------------------------------------------------
 * Function:    test_scaleoffset_double_2
 *
 * Purpose:     Tests the double datatype for scaleoffset filter, with fill
 *              value set, using variable-minimum-bits method
 *
 * Return:      Success:        0
 *
 *              Failure:        -1
 *
 * Programmer:  Xiaowen Wu
 *              Monday, Apr. 25th, 2005
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_scaleoffset_double_2(hid_t file)
{
    hid_t         dataset, datatype, space, mspace, dc;
    const hsize_t size[2]       = {2, 5};
    const hsize_t chunk_size[2] = {2, 5};
    double        orig_data[2][5];
    double        new_data[2][5];
    double        fillval;
    hsize_t       start[2];  /* Start of hyperslab */
    hsize_t       stride[2]; /* Stride of hyperslab */
    hsize_t       count[2];  /* Block count */
    hsize_t       block[2];  /* Block sizes */
    size_t        j;

    TESTING("    scaleoffset double with fill value, D-scaling (setup)");

    datatype = H5Tcopy(H5T_NATIVE_DOUBLE);

    /* Set order of dataset datatype */
    if (H5Tset_order(datatype, H5T_ORDER_BE) < 0)
        goto error;

    /* Create the data space for the dataset */
    if ((space = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Create the dataset property list  */
    if ((dc = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;

    /* Set fill value */
    fillval = 10000.0F;
    if (H5Pset_fill_value(dc, H5T_NATIVE_DOUBLE, &fillval) < 0)
        goto error;

    /* Set up to use scaleoffset filter, decimal scale factor is 7,
     * use variable-minimum-bits method
     */
    if (H5Pset_chunk(dc, 2, chunk_size) < 0)
        goto error;
    if (H5Pset_scaleoffset(dc, H5Z_SO_FLOAT_DSCALE, 7) < 0)
        goto error;

    /* Create the dataset */
    if ((dataset = H5Dcreate2(file, DSET_SCALEOFFSET_DOUBLE_NAME_2, datatype, space, H5P_DEFAULT, dc,
                              H5P_DEFAULT)) < 0)
        goto error;

    /* Create the memory data space */
    if ((mspace = H5Screate_simple(2, size, NULL)) < 0)
        goto error;

    /* Select hyperslab for data to write, using 1x5 blocks,
     * (1,1) stride and (1,1) count starting at the position (0,0).
     */
    start[0]  = 0;
    start[1]  = 0;
    stride[0] = 1;
    stride[1] = 1;
    count[0]  = 1;
    count[1]  = 1;
    block[0]  = 1;
    block[1]  = 5;
    if (H5Sselect_hyperslab(mspace, H5S_SELECT_SET, start, stride, count, block) < 0)
        goto error;

    /* Initialize data of hyperslab */
    for (j = 0; j < (size_t)size[1]; j++) {
        orig_data[0][j] = (float)(HDrandom() % 10000000) / 10000000.0F;

        /* even-numbered values are negtive */
        if ((j + 1) % 2 == 0)
            orig_data[0][j] = -orig_data[0][j];
    }

    PASSED();

    /*----------------------------------------------------------------------
     * STEP 1: Test scaleoffset by setting up a chunked dataset and writing
     * to it.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset double with fill value, D-scaling (write)");

    /* only data in the hyperslab will be written, other value should be fill value */
    if (H5Dwrite(dataset, H5T_NATIVE_DOUBLE, mspace, mspace, H5P_DEFAULT, orig_data) < 0)
        goto error;
    PASSED();

    /*----------------------------------------------------------------------
     * STEP 2: Try to read the data we just wrote.
     *----------------------------------------------------------------------
     */
    TESTING("    scaleoffset double with fill value, D-scaling (read)");

    /* Read the dataset back */
    if (H5Dread(dataset, H5T_NATIVE_DOUBLE, mspace, mspace, H5P_DEFAULT, new_data) < 0)
        goto error;

    /* Check that the values read are the same as the values written */
    for (j = 0; j < (size_t)size[1]; j++) {
        if (HDfabs(new_data[0][j] - orig_data[0][j]) > HDpow(10.0, -7.0)) {
            H5_FAILED();
            HDprintf("    Read different values than written.\n");
            HDprintf("    At index %lu,%lu\n", (unsigned long)0, (unsigned long)j);
            goto error;
        }
    }

    /*----------------------------------------------------------------------
     * Cleanup
     *----------------------------------------------------------------------
     */
    if (H5Tclose(datatype) < 0)
        goto error;
    if (H5Pclose(dc) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Dclose(dataset) < 0)
        goto error;

    PASSED();

    return SUCCEED;
error:
    return FAIL;
} /* end test_scaleoffset_double_2() */

/*-------------------------------------------------------------------------
 * Function:    test_multiopen
 *
 * Purpose:     Tests that a bug no longer exists.  If a dataset is opened
 *              twice and one of the handles is used to extend the dataset,
 *              then the other handle should return the new size when
 *              queried.
 *
 * Return:      Success:    0
 *
 *              Failure:    -1
 *
 * Programmer:  Robb Matzke
 *              Tuesday, June  9, 1998
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_multiopen(hid_t file)
{
    hid_t          dcpl = -1, space = -1, dset1 = -1, dset2 = -1;
    hsize_t        cur_size[1] = {10};
    hsize_t        tmp_size[1];
    static hsize_t max_size[1] = {H5S_UNLIMITED};

    TESTING("multi-open with extending");

    /* Create the dataset and open it twice */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dcpl, 1, cur_size) < 0)
        goto error;
    if ((space = H5Screate_simple(1, cur_size, max_size)) < 0)
        goto error;
    if ((dset1 = H5Dcreate2(file, "multiopen", H5T_NATIVE_INT, space, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
        goto error;
    if ((dset2 = H5Dopen2(dset1, ".", H5P_DEFAULT)) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;

    /* Extend with the first handle */
    cur_size[0] = 20;
    if (H5Dset_extent(dset1, cur_size) < 0)
        goto error;

    /* Get the size from the second handle */
    if ((space = H5Dget_space(dset2)) < 0)
        goto error;
    if (H5Sget_simple_extent_dims(space, tmp_size, NULL) < 0)
        goto error;
    if (cur_size[0] != tmp_size[0]) {
        H5_FAILED();
        HDprintf("    Got %d instead of %d!\n", (int)tmp_size[0], (int)cur_size[0]);
        goto error;
    } /* end if */

    if (H5Dclose(dset1) < 0)
        goto error;
    if (H5Dclose(dset2) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Pclose(dcpl) < 0)
        goto error;

    PASSED();
    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Dclose(dset1);
        H5Dclose(dset2);
        H5Sclose(space);
        H5Pclose(dcpl);
    }
    H5E_END_TRY;
    return FAIL;
} /* end test_multiopen() */

/*-------------------------------------------------------------------------
 * Function:    test_types
 *
 * Purpose:    Make some datasets with various types so we can test h5ls.
 *
 * Return:    Success:    0
 *
 *        Failure:    -1
 *
 * Programmer:    Robb Matzke
 *              Monday, June  7, 1999
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_types(hid_t file)
{
    hid_t         grp = -1, type = -1, space = -1, dset = -1;
    size_t        i;
    hsize_t       nelmts;
    unsigned char buf[32];

    TESTING("various datatypes");
    if ((grp = H5Gcreate2(file, "typetests", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        goto error;

    /* bitfield_1 */
    nelmts = sizeof(buf);
    if ((type = H5Tcopy(H5T_STD_B8LE)) < 0 || (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
        (dset = H5Dcreate2(grp, "bitfield_1", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        goto error;
    for (i = 0; i < sizeof buf; i++)
        buf[i] = (unsigned char)(0xff ^ i);
    if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
        goto error;

    if (H5Sclose(space) < 0)
        goto error;
    if (H5Tclose(type) < 0)
        goto error;
    if (H5Dclose(dset) < 0)
        goto error;

    /* bitfield_2 */
    nelmts = sizeof(buf) / 2;
    if ((type = H5Tcopy(H5T_STD_B16LE)) < 0 || (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
        (dset = H5Dcreate2(grp, "bitfield_2", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        goto error;
    for (i = 0; i < sizeof buf; i++)
        buf[i] = (unsigned char)(0xff ^ i);
    if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Tclose(type) < 0)
        goto error;
    if (H5Dclose(dset) < 0)
        goto error;

    /* opaque_1 */
    nelmts = sizeof(buf);
    if ((type = H5Tcreate(H5T_OPAQUE, (size_t)1)) < 0 || H5Tset_tag(type, "testing 1-byte opaque type") < 0 ||
        (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
        (dset = H5Dcreate2(grp, "opaque_1", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        goto error;
    for (i = 0; i < sizeof buf; i++)
        buf[i] = (unsigned char)(0xff ^ i);
    if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Tclose(type) < 0)
        goto error;
    if (H5Dclose(dset) < 0)
        goto error;

    /* opaque_2 */
    nelmts = sizeof(buf) / 4;
    if ((type = H5Tcreate(H5T_OPAQUE, (size_t)4)) < 0 || H5Tset_tag(type, "testing 4-byte opaque type") < 0 ||
        (space = H5Screate_simple(1, &nelmts, NULL)) < 0 ||
        (dset = H5Dcreate2(grp, "opaque_2", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        goto error;
    for (i = 0; i < sizeof buf; i++)
        buf[i] = (unsigned char)(0xff ^ i);
    if (H5Dwrite(dset, type, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
        goto error;
    if (H5Sclose(space) < 0)
        goto error;
    if (H5Tclose(type) < 0)
        goto error;
    if (H5Dclose(dset) < 0)
        goto error;

    /* Cleanup */
    if (H5Gclose(grp) < 0)
        goto error;
    PASSED();
    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(grp);
        H5Tclose(type);
        H5Sclose(space);
        H5Dclose(dset);
    }
    H5E_END_TRY;
    return FAIL;
} /* end test_types() */

/* This message derives from H5Z */
const H5Z_class2_t H5Z_CAN_APPLY_TEST[1] = {{
    H5Z_CLASS_T_VERS, H5Z_FILTER_CAN_APPLY_TEST, /* Filter id number        */
    1, 1, "can_apply_test",                      /* Filter name for debugging    */
    can_apply_bogus,                             /* The "can apply" callback     */
    NULL,                                        /* The "set local" callback     */
    filter_bogus,                                /* The actual filter function    */
}};

/*-------------------------------------------------------------------------
 * Function:    test_can_apply
 *
 * Purpose:    Tests library behavior when filter indicates it can't
 *              apply to certain combinations of creation parameters.
 *              The filter is mandate.  If the CAN_APPLY callback function
 *              indicates wrong datatype, the dataset creation should fail.
 *
 * Return:    Success:    0
 *        Failure:    -1
 *
 * Programmer:    Quincey Koziol
 *              Friday, April  5, 2003
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_can_apply(hid_t file)
{
    hid_t         dsid;                                   /* Dataset ID */
    hid_t         sid;                                    /* Dataspace ID */
    hid_t         dcpl;                                   /* Dataspace creation property list ID */
    const hsize_t dims[2]       = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
    const hsize_t chunk_dims[2] = {2, 25};                /* Chunk dimensions */
    hsize_t       dset_size;                              /* Dataset size */
    size_t        i, j;                                   /* Local index variables */

    TESTING("dataset filter 'can apply' callback");

    /* Create dcpl with special filter */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dcpl\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set chunk sizes\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Zregister(H5Z_CAN_APPLY_TEST) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't register 'can apply' filter\n", __LINE__);
        goto error;
    }
    /* The filter is mandate. */
    if (H5Pset_filter(dcpl, H5Z_FILTER_CAN_APPLY_TEST, 0, (size_t)0, NULL) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set bogus filter\n", __LINE__);
        goto error;
    }

    /* Create the data space */
    if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Create new dataset */
    /* (Should fail because the 'can apply' function should indicate inappropriate
     * combination.  And the filter is mandate.) */
    H5E_BEGIN_TRY
    {
        dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (dsid >= 0) {
        H5_FAILED();
        HDprintf("    Line %d: Shouldn't have created dataset!\n", __LINE__);
        H5Dclose(dsid);
        goto error;
    } /* end if */

    /* (Should fail because the 'can apply' function should fail) */
    H5E_BEGIN_TRY
    {
        dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME, H5T_NATIVE_FLOAT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (dsid >= 0) {
        H5_FAILED();
        HDprintf("    Line %d: Shouldn't have created dataset!\n", __LINE__);
        H5Dclose(dsid);
        goto error;
    } /* end if */

    /* Create new dataset */
    if ((dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
        0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Write data */
    if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error writing dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Flush the file (to clear the cache) */
    if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error flushing file\n", __LINE__);
        goto error;
    } /* end if */

    /* Query the dataset's size on disk */
    if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error querying dataset size\n", __LINE__);
        goto error;
    } /* end if */

    /* Verify that the size indicates data is uncompressed */
    if ((H5Tget_size(H5T_NATIVE_INT) * dims[0] * dims[1]) != dset_size) {
        H5_FAILED();
        HDprintf("    Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
        goto error;
    } /* end if */

    /* Read data */
    if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error reading dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Compare data */
    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)dims[0]; i++) {
        for (j = 0; j < (size_t)dims[1]; j++) {
            if (points[i][j] != check[i][j]) {
                H5_FAILED();
                HDprintf("    Line %d: Read different values than written.\n", __LINE__);
                HDprintf("    At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
                HDprintf("    At original: %d\n", points[i][j]);
                HDprintf("    At returned: %d\n", check[i][j]);
                goto error;
            } /* end if */
        }     /* end for */
    }         /* end for */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataspace */
    if (H5Sclose(sid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataset creation property list */
    if (H5Pclose(dcpl) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dcpl\n", __LINE__);
        goto error;
    } /* end if */

    PASSED();
    return SUCCEED;

error:
    return FAIL;
} /* end test_can_apply() */

/* This message derives from H5Z */
const H5Z_class2_t H5Z_CAN_APPLY_TEST2[1] = {{
    H5Z_CLASS_T_VERS, H5Z_FILTER_CAN_APPLY_TEST2, /* Filter id number        */
    1, 1, "can_apply_test",                       /* Filter name for debugging    */
    can_apply_bogus,                              /* The "can apply" callback     */
    NULL,                                         /* The "set local" callback     */
    filter_bogus3,                                /* The actual filter function    */
}};

/*-------------------------------------------------------------------------
 * Function:    test_can_apply2
 *
 * Purpose:    Tests library behavior when an optional filter indicates
 *              it can't apply to certain combinations of creation
 *              parameters.  The filter function FILTER_BOGUS3 does nothing
 *              than returning a failure.  Because the filter is optional,
 *              the library skips the filter even though the CAN_APPLY_BOGUS
 *              indicates the datatype DOUBLE can't apply to the dataset.
 *
 * Return:    Success:    0
 *        Failure:    -1
 *
 * Programmer:    Raymond Lu
 *              4 August 2010
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_can_apply2(hid_t file)
{
    hid_t         dsid;                                   /* Dataset ID */
    hid_t         sid;                                    /* Dataspace ID */
    hid_t         dcpl;                                   /* Dataspace creation property list ID */
    const hsize_t dims[2]       = {DSET_DIM1, DSET_DIM2}; /* Dataspace dimensions */
    const hsize_t chunk_dims[2] = {2, 25};                /* Chunk dimensions */
    hsize_t       dset_size;                              /* Dataset size */
    size_t        i, j;                                   /* Local index variables */

    TESTING("dataset filter 'can apply' callback second");

    /* Create dcpl with special filter */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dcpl\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set chunk sizes\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Zregister(H5Z_CAN_APPLY_TEST2) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't register 'can apply' filter\n", __LINE__);
        goto error;
    }
    /* The filter is optional. */
    if (H5Pset_filter(dcpl, H5Z_FILTER_CAN_APPLY_TEST2, H5Z_FLAG_OPTIONAL, (size_t)0, NULL) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set bogus filter\n", __LINE__);
        goto error;
    }

    /* Create the data space */
    if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Create new dataset */
    if ((dsid = H5Dcreate2(file, DSET_CAN_APPLY_NAME2, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl,
                           H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Write data */
    if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error writing dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Flush the file (to clear the cache) */
    if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error flushing file\n", __LINE__);
        goto error;
    } /* end if */

    /* Query the dataset's size on disk */
    if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error querying dataset size\n", __LINE__);
        goto error;
    } /* end if */

    /* Verify that the size indicates data is uncompressed */
    if ((H5Tget_size(H5T_NATIVE_DOUBLE) * dims[0] * dims[1]) != dset_size) {
        H5_FAILED();
        HDprintf("    Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
        goto error;
    } /* end if */

    /* Read data */
    if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error reading dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Compare data */
    /* Check that the values read are the same as the values written */
    for (i = 0; i < (size_t)dims[0]; i++) {
        for (j = 0; j < (size_t)dims[1]; j++) {
            if (points[i][j] != check[i][j]) {
                H5_FAILED();
                HDprintf("    Line %d: Read different values than written.\n", __LINE__);
                HDprintf("    At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
                HDprintf("    At original: %d\n", points[i][j]);
                HDprintf("    At returned: %d\n", check[i][j]);
                goto error;
            } /* end if */
        }     /* end for */
    }         /* end for */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataspace */
    if (H5Sclose(sid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataset creation property list */
    if (H5Pclose(dcpl) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dcpl\n", __LINE__);
        goto error;
    } /* end if */

    PASSED();
    return SUCCEED;

error:
    return FAIL;
} /* end test_can_apply2() */

/*-------------------------------------------------------------------------
 * Function:    test_optional_filters
 *
 * Purpose:     Tests that H5Dcreate2 will not fail when a combination of
 *              type, space, etc... doesn't work for a filter and filter is
 *              optional.
 *
 * Return:      Success:    SUCCEED
 *              Failure:    FAIL
 *
 * Programmer:  Binh-Minh Ribler
 *              24 July 2020
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_optional_filters(hid_t file)
{
    unsigned int level        = 9;
    unsigned int cd_values[1] = {level};
    size_t       cd_nelmts    = 1;
    hsize_t      dim1d[1];                  /* Dataspace dimensions */
    hid_t        dsid    = H5I_INVALID_HID; /* Dataset ID */
    hid_t        sid     = H5I_INVALID_HID; /* Dataspace ID */
    hid_t        strtid  = H5I_INVALID_HID; /* Datatype ID for string */
    hid_t        vlentid = H5I_INVALID_HID; /* Datatype ID for vlen */
    hid_t        dcplid  = H5I_INVALID_HID; /* Dataspace creation property list ID */

    TESTING("dataset with optional filters");

    /* Create dcpl with special filter */
    if ((dcplid = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        TEST_ERROR;

    /* Create the datatype */
    if ((strtid = H5Tcreate(H5T_STRING, H5T_VARIABLE)) < 0)
        TEST_ERROR;

    /* Create the data space */
    if ((sid = H5Screate(H5S_SCALAR)) < 0)
        TEST_ERROR;

    /* The filter is optional. */
    if (H5Pset_filter(dcplid, H5Z_FILTER_DEFLATE, H5Z_FLAG_OPTIONAL, cd_nelmts, cd_values) < 0)
        TEST_ERROR;

    /* Create dataset with optional filter */
    if ((dsid = H5Dcreate2(file, DSET_OPTIONAL_SCALAR, strtid, sid, H5P_DEFAULT, dcplid, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close dataset */
    if (H5Dclose(dsid) < 0)
        TEST_ERROR;

    /* Close dataspace */
    if (H5Sclose(sid) < 0)
        TEST_ERROR;

    /* Close datatype */
    if (H5Tclose(strtid) < 0)
        TEST_ERROR;

    /* Set dataspace dimensions */
    dim1d[0] = DIM1;

    /* Create a non-scalar dataspace */
    if ((sid = H5Screate_simple(1, dim1d, NULL)) < 0)
        TEST_ERROR;

    /* Create a vlen datatype */
    if ((vlentid = H5Tvlen_create(H5T_NATIVE_INT)) < 0)
        TEST_ERROR;

    /* Create dataset with optional filter */
    if ((dsid = H5Dcreate2(file, DSET_OPTIONAL_VLEN, vlentid, sid, H5P_DEFAULT, dcplid, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close dataset */
    if (H5Dclose(dsid) < 0)
        TEST_ERROR;

    /* Close dataspace */
    if (H5Sclose(sid) < 0)
        TEST_ERROR;

    /* Close datatype */
    if (H5Tclose(vlentid) < 0)
        TEST_ERROR;

    /* Close dataset creation property list */
    if (H5Pclose(dcplid) < 0)
        TEST_ERROR;

    PASSED();
    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Dclose(dsid);
        H5Sclose(sid);
        H5Pclose(dcplid);
        H5Tclose(strtid);
        H5Tclose(vlentid);
    }
    H5E_END_TRY;
    return FAIL;
} /* end test_optional_filters() */

/*-------------------------------------------------------------------------
 * Function:    test_can_apply_szip
 *
 * Purpose:    Tests library behavior when szip filter indicates it can't
 *              apply to certain combinations of creation parameters
 *
 * Return:    Success:    0
 *        Failure:    -1
 *
 * Programmer:    Quincey Koziol
 *              Monday, April  7, 2003
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_can_apply_szip(hid_t
#ifndef H5_HAVE_FILTER_SZIP
                        H5_ATTR_UNUSED
#endif /* H5_HAVE_FILTER_SZIP */
                            file)
{
#ifdef H5_HAVE_FILTER_SZIP
    hid_t         dsid; /* Dataset ID */
    hid_t         sid;  /* Dataspace ID */
    hid_t         dcpl; /* Dataspace creation property list ID */
    unsigned      szip_options_mask = H5_SZIP_NN_OPTION_MASK;
    unsigned      szip_pixels_per_block;
    const hsize_t dims[2]        = {500, 4096}; /* Dataspace dimensions */
    const hsize_t dims2[2]       = {4, 2};      /* Dataspace dimensions */
    const hsize_t chunk_dims[2]  = {250, 2048}; /* Chunk dimensions */
    const hsize_t chunk_dims2[2] = {2, 1};      /* Chunk dimensions */
    herr_t        ret;                          /* Status value */
#endif                                          /* H5_HAVE_FILTER_SZIP */

    TESTING("dataset szip filter 'can apply' callback");

#ifdef H5_HAVE_FILTER_SZIP

    if (h5_szip_can_encode() == 1) {
        /* Create the data space */
        if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't open dataspace\n", __LINE__);
            goto error;
        } /* end if */

        /* Create dcpl with special filter */
        if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't create dcpl\n", __LINE__);
            goto error;
        } /* end if */
        if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't set chunk sizes\n", __LINE__);
            goto error;
        } /* end if */

        /* Set (invalid at property set time) szip parameters */
        szip_pixels_per_block = 3;
        H5E_BEGIN_TRY
        {
            ret = H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block);
        }
        H5E_END_TRY;
        if (ret >= 0) {
            H5_FAILED();
            HDprintf("    Line %d: Shouldn't be able to set szip filter\n", __LINE__);
            goto error;
        }

        /* Set (invalid at property set time) szip parameters */
        szip_pixels_per_block = 512;
        H5E_BEGIN_TRY
        {
            ret = H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block);
        }
        H5E_END_TRY;
        if (ret >= 0) {
            H5_FAILED();
            HDprintf("    Line %d: Shouldn't be able to set szip filter\n", __LINE__);
            goto error;
        }

        /* Set (invalid at dataset creation time) szip parameters */
        szip_pixels_per_block = 2;
        if (H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't set szip filter\n", __LINE__);
            goto error;
        }

        /* Create new dataset */
        /* (Should succeed; according to the new algorithm, scanline should be reset
            to 2*128 satisfying 'maximum blocks per scanline' condition) */
        H5E_BEGIN_TRY
        {
            dsid = H5Dcreate2(file, DSET_CAN_APPLY_SZIP_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
                              H5P_DEFAULT);
        }
        H5E_END_TRY;
        if (dsid <= 0) {
            H5_FAILED();
            HDprintf("    Line %d: Should have created dataset!\n", __LINE__);
            goto error;
        } /* end if */

        /* Close dataset */
        if (H5Dclose(dsid) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't close dataset\n", __LINE__);
            goto error;
        } /* end if */

        /* Close dataspace */
        if (H5Sclose(sid) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't close dataspace\n", __LINE__);
            goto error;
        } /* end if */

        /* Close dataset creation property list */
        if (H5Pclose(dcpl) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't close dcpl\n", __LINE__);
            goto error;
        } /* end if */

        /* Create another data space */
        if ((sid = H5Screate_simple(2, dims2, NULL)) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't open dataspace\n", __LINE__);
            goto error;
        } /* end if */

        /* Create dcpl with special filter */
        if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't create dcpl\n", __LINE__);
            goto error;
        } /* end if */
        if (H5Pset_chunk(dcpl, 2, chunk_dims2) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't set chunk sizes\n", __LINE__);
            goto error;
        } /* end if */

        /* Set (invalid at dataset creation time) szip parameters */
        szip_pixels_per_block = 32;
        if (H5Pset_szip(dcpl, szip_options_mask, szip_pixels_per_block) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't set szip filter\n", __LINE__);
            goto error;
        }

        /* Create new dataset */
        /* (Should fail because the 'can apply' filter should indicate inappropriate combination) */
        H5E_BEGIN_TRY
        {
            dsid = H5Dcreate2(file, DSET_CAN_APPLY_SZIP_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
                              H5P_DEFAULT);
        }
        H5E_END_TRY;
        if (dsid >= 0) {
            H5_FAILED();
            HDprintf("    Line %d: Shouldn't have created dataset!\n", __LINE__);
            H5Dclose(dsid);
            goto error;
        } /* end if */

        /* Close dataspace */
        if (H5Sclose(sid) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't close dataspace\n", __LINE__);
            goto error;
        } /* end if */

        /* Close dataset creation property list */
        if (H5Pclose(dcpl) < 0) {
            H5_FAILED();
            HDprintf("    Line %d: Can't close dcpl\n", __LINE__);
            goto error;
        } /* end if */

        PASSED();
    }
    else {
        SKIPPED();
        HDputs("    Szip encoding is not enabled.");
    }
#else  /* H5_HAVE_FILTER_SZIP */
    SKIPPED();
    HDputs("    Szip filter is not enabled.");
#endif /* H5_HAVE_FILTER_SZIP */
    return SUCCEED;

#ifdef H5_HAVE_FILTER_SZIP
error:
    return FAIL;
#endif /* H5_HAVE_FILTER_SZIP */
} /* end test_can_apply_szip() */

/* This message derives from H5Z */
const H5Z_class2_t H5Z_SET_LOCAL_TEST[1] = {{
    H5Z_CLASS_T_VERS, H5Z_FILTER_SET_LOCAL_TEST, /* Filter id number        */
    1, 1, "set_local_test",                      /* Filter name for debugging    */
    NULL,                                        /* The "can apply" callback     */
    set_local_bogus2,                            /* The "set local" callback     */
    filter_bogus2,                               /* The actual filter function    */
}};

/*-------------------------------------------------------------------------
 * Function:    test_set_local
 *
 * Purpose:    Tests library behavior for "set local" filter callback
 *
 * Return:    Success:    0
 *        Failure:    -1
 *
 * Programmer:    Quincey Koziol
 *              Monday, April  7, 2003
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_set_local(hid_t fapl)
{
    char          filename[FILENAME_BUF_SIZE];
    hid_t         file;                                            /* File ID */
    hid_t         dsid;                                            /* Dataset ID */
    hid_t         sid;                                             /* Dataspace ID */
    hid_t         dcpl;                                            /* Dataspace creation property list ID */
    const hsize_t dims[2]       = {DSET_DIM1, DSET_DIM2};          /* Dataspace dimensions */
    const hsize_t chunk_dims[2] = {2, 25};                         /* Chunk dimensions */
    hsize_t       dset_size;                                       /* Dataset size */
    unsigned      cd_values[2] = {BOGUS2_PARAM_1, BOGUS2_PARAM_2}; /* Parameters for Bogus2 filter */
    size_t        i, j;                                            /* Local index variables */
    double        n;                                               /* Local index variables */

    TESTING("dataset filter 'set local' callback");

    h5_fixname(FILENAME[5], fapl, filename, sizeof filename);

    /* Initialize the integer & floating-point dataset */
    n = 1.0F;
    for (i = 0; i < DSET_DIM1; i++)
        for (j = 0; j < DSET_DIM2; j++) {
            points[i][j]     = (int)n++;
            points_dbl[i][j] = (double)1.5F * n++;
        }

    /* Open file */
    if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open file\n", __LINE__);
        goto error;
    }

    /* Create dcpl with special filter */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dcpl\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set chunk sizes\n", __LINE__);
        goto error;
    } /* end if */
    if (H5Zregister(H5Z_SET_LOCAL_TEST) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't register 'set local' filter\n", __LINE__);
        goto error;
    }
    if (H5Pset_filter(dcpl, H5Z_FILTER_SET_LOCAL_TEST, 0, (size_t)BOGUS2_PERM_NPARMS, cd_values) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't set bogus2 filter\n", __LINE__);
        goto error;
    }

    /* Create the data space */
    if ((sid = H5Screate_simple(2, dims, NULL)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Create new dataset */
    if ((dsid = H5Dcreate2(file, DSET_SET_LOCAL_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) <
        0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Write data */
    if (H5Dwrite(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error writing dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Create new dataset */
    /* (Shouldn't get modified by output filter) */
    if ((dsid = H5Dcreate2(file, DSET_SET_LOCAL_NAME_2, H5T_NATIVE_DOUBLE, sid, H5P_DEFAULT, dcpl,
                           H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't create dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Write data */
    if (H5Dwrite(dsid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, points_dbl_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error writing dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataspace */
    if (H5Sclose(sid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataspace\n", __LINE__);
        goto error;
    } /* end if */

    /* Close dataset creation property list */
    if (H5Pclose(dcpl) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dcpl\n", __LINE__);
        goto error;
    } /* end if */

    /* Close file (flushes & empties cache) */
    if (H5Fclose(file) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close file\n", __LINE__);
        goto error;
    } /* end if */

    /* Open file */
    if ((file = H5Fopen(filename, H5F_ACC_RDWR, fapl)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open file\n", __LINE__);
        goto error;
    }

    /* Re-open dataset */
    if ((dsid = H5Dopen2(file, DSET_SET_LOCAL_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Query the dataset's size on disk */
    if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error querying dataset size\n", __LINE__);
        goto error;
    } /* end if */

    /* Verify that the size indicates data is uncompressed */
    if ((H5Tget_size(H5T_NATIVE_INT) * dims[0] * dims[1]) != dset_size) {
        H5_FAILED();
        HDprintf("    Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
        goto error;
    } /* end if */

    /* Read data */
    if (H5Dread(dsid, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error reading dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Compare data */
    /* Check that the values read are the modified version of what was written */
    for (i = 0; i < dims[0]; i++) {
        for (j = 0; j < dims[1]; j++) {
            if ((points[i][j] + (int)sizeof(int)) != check[i][j]) {
                H5_FAILED();
                HDprintf("    Line %d: Read different values than written.\n", __LINE__);
                HDprintf("    At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
                HDprintf("    At original: %d\n", points[i][j]);
                HDprintf("    At returned: %d\n", check[i][j]);
                goto error;
            } /* end if */
        }     /* end for */
    }         /* end for */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Re-open second dataset */
    if ((dsid = H5Dopen2(file, DSET_SET_LOCAL_NAME_2, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't open dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Query the dataset's size on disk */
    if ((dset_size = H5Dget_storage_size(dsid)) == 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error querying dataset size\n", __LINE__);
        goto error;
    } /* end if */

    /* Verify that the size indicates data is uncompressed */
    if ((H5Tget_size(H5T_NATIVE_DOUBLE) * dims[0] * dims[1]) != dset_size) {
        H5_FAILED();
        HDprintf("    Line %d: Incorrect dataset size: %lu\n", __LINE__, (unsigned long)dset_size);
        goto error;
    } /* end if */

    /* Read data */
    if (H5Dread(dsid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, H5P_DEFAULT, check_dbl_data) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Error reading dataset data\n", __LINE__);
        goto error;
    } /* end if */

    /* Compare data */
    /* Check that the values read are the modified version of what was written */
    for (i = 0; i < dims[0]; i++) {
        for (j = 0; j < dims[1]; j++) {
            /* If the difference between two values is greater than 0.001%, they're
             * considered not equal. */
            if (!H5_DBL_REL_EQUAL(points_dbl[i][j], check_dbl[i][j], (double)0.00001F)) {
                H5_FAILED();
                HDprintf("    Line %d: Read different values than written.\n", __LINE__);
                HDprintf("    At index %lu,%lu\n", (unsigned long)(i), (unsigned long)(j));
                HDprintf("    At original: %f\n", points_dbl[i][j]);
                HDprintf("    At returned: %f\n", check_dbl[i][j]);
                goto error;
            } /* end if */
        }     /* end for */
    }         /* end for */

    /* Close dataset */
    if (H5Dclose(dsid) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close dataset\n", __LINE__);
        goto error;
    } /* end if */

    /* Close file */
    if (H5Fclose(file) < 0) {
        H5_FAILED();
        HDprintf("    Line %d: Can't close file\n", __LINE__);
        goto error;
    } /* end if */

    PASSED();
    return SUCCEED;

error:
    return FAIL;
} /* end test_set_local() */

/*-------------------------------------------------------------------------
 * Function:    test_compare_dcpl
 *
 * Purpose:    Verifies that if the same DCPL was used to create two
 *              datasets, the DCPLs retrieved from each dataset should
 *              compare equal.
 *
 * Return:    Success:    0
 *        Failure:    -1
 *
 * Programmer:    Quincey Koziol
 *              Wednesday, January  7, 2004
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_compare_dcpl(hid_t file)
{
    hid_t         dsid  = (-1);                /* Dataset ID */
    hid_t         sid   = (-1);                /* Dataspace ID */
    hid_t         dcpl  = (-1);                /* Dataspace creation property list ID */
    hid_t         dcpl1 = (-1), dcpl2 = (-1);  /* Dataspace creation property list IDs from datasets */
    const hsize_t dims[2]       = {500, 4096}; /* Dataspace dimensions */
    const hsize_t chunk_dims[2] = {250, 2048}; /* Chunk dimensions */

    TESTING("comparing dataset creation property lists");

    /* Create the data space */
    if ((sid = H5Screate_simple(2, dims, NULL)) < 0)
        TEST_ERROR

    /* Create dcpl with special filter */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        TEST_ERROR
    if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
        TEST_ERROR

        /* Set gzip parameter (if available) */
#ifdef H5_HAVE_FILTER_DEFLATE
    if (H5Pset_deflate(dcpl, 9) < 0)
        TEST_ERROR
#endif /* H5_HAVE_FILTER_DEFLATE */

    /* Create first dataset */
    if ((dsid = H5Dcreate2(file, DSET_COMPARE_DCPL_NAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
                           H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Get copy of dataset's dataset creation property list */
    if ((dcpl1 = H5Dget_create_plist(dsid)) < 0)
        TEST_ERROR

    /* Close dataset */
    if (H5Dclose(dsid) < 0)
        TEST_ERROR

    /* Create second dataset */
    if ((dsid = H5Dcreate2(file, DSET_COMPARE_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
                           H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Get copy of dataset's dataset creation property list */
    if ((dcpl2 = H5Dget_create_plist(dsid)) < 0)
        TEST_ERROR

    /* Close dataset */
    if (H5Dclose(dsid) < 0)
        TEST_ERROR

    /* Close dataspace */
    if (H5Sclose(sid) < 0)
        TEST_ERROR

    /* Compare dataset creation property lists */
    if (H5Pequal(dcpl1, dcpl2) <= 0)
        TEST_ERROR

    /* Close dataset creation property lists */
    if (H5Pclose(dcpl) < 0)
        TEST_ERROR
    if (H5Pclose(dcpl1) < 0)
        TEST_ERROR
    if (H5Pclose(dcpl2) < 0)
        TEST_ERROR

    PASSED();

    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Dclose(dsid);
        H5Sclose(sid);
        H5Pclose(dcpl);
        H5Pclose(dcpl1);
        H5Pclose(dcpl2);
    }
    H5E_END_TRY;
    return FAIL;
} /* end test_compare_dcpl() */

/*-------------------------------------------------------------------------
 * Function:    test_copy_dcpl
 *
 * Purpose:    Verifies whether the copy of dataset creation property
 *              list works.  It tests the DCPL for chunked layout with
 *              filter and for contiguous layout with external storage.
 *              (Please see #1608 in Bugzilla)
 *
 * Return:    Success:    0
 *        Failure:    -1
 *
 * Programmer:    Raymond Lu
 *              28 January 2010
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_copy_dcpl(hid_t file, hid_t fapl)
{
    hid_t         dsid1 = (-1), dsid2 = (-1);           /* Dataset ID */
    hid_t         new_dsid1 = (-1), new_dsid2 = (-1);   /* Dataset ID */
    hid_t         sid   = (-1);                         /* Dataspace ID */
    hid_t         dcpl  = (-1);                         /* Dataset creation property list ID */
    hid_t         dcpl1 = (-1), dcpl2 = (-1);           /* Copies of creation property list IDs */
    hid_t         dcpl1_copy = (-1), dcpl2_copy = (-1); /* Copies of creation property list IDs */
    const hsize_t dims[2]       = {500, 4096};          /* Dataspace dimensions */
    const hsize_t chunk_dims[2] = {250, 2048};          /* Chunk dimensions */
    char          filename[FILENAME_BUF_SIZE];
    hid_t         new_file = (-1);

    TESTING("copying dataset creation property lists");

    /* Create the data space */
    if ((sid = H5Screate_simple(2, dims, NULL)) < 0)
        TEST_ERROR

    /* Create dcpl with special filter */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        TEST_ERROR
    if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
        TEST_ERROR
    if (H5Pset_fletcher32(dcpl) < 0)
        TEST_ERROR

    /* Create first dataset of chunking with filter */
    if ((dsid1 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
                            H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Close dataset */
    if (H5Dclose(dsid1) < 0)
        TEST_ERROR

    /* Reopen the first dataset */
    if ((dsid1 = H5Dopen2(file, DSET_COPY_DCPL_NAME_1, H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Get the copy of dataset's creation property list */
    if ((dcpl1 = H5Dget_create_plist(dsid1)) < 0)
        TEST_ERROR
    if ((dcpl1_copy = H5Pcopy(dcpl1)) < 0)
        TEST_ERROR

    /* Close dataset */
    if (H5Dclose(dsid1) < 0)
        TEST_ERROR

    /* Change the DCPL for contiguous layout with external storage.  The size of the reserved
     * space in the external file is the size of the dataset - 500*4096*sizeof(int).
     * There's no need to clean up the external file since the library doesn't create it
     * until the data is written to it. */
    if (H5Pset_layout(dcpl, H5D_CONTIGUOUS) < 0)
        TEST_ERROR
    if (H5Premove_filter(dcpl, H5Z_FILTER_FLETCHER32) < 0)
        TEST_ERROR
    if (H5Pset_external(dcpl, COPY_DCPL_EXTFILE_NAME, (off_t)0, (hsize_t)(500 * 4096 * sizeof(int))) < 0)
        TEST_ERROR

    /* Create second dataset of contiguous layout with external storage */
    if ((dsid2 = H5Dcreate2(file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl,
                            H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Close dataset */
    if (H5Dclose(dsid2) < 0)
        TEST_ERROR

    /* Reopen the second dataset */
    if ((dsid2 = H5Dopen2(file, DSET_COPY_DCPL_NAME_2, H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Get copy of dataset's dataset creation property list */
    if ((dcpl2 = H5Dget_create_plist(dsid2)) < 0)
        TEST_ERROR
    if ((dcpl2_copy = H5Pcopy(dcpl2)) < 0)
        TEST_ERROR

    /* Close dataset */
    if (H5Dclose(dsid2) < 0)
        TEST_ERROR

    /* Create a second file and create 2 datasets with the copies of the DCPLs in the first
     * file.  Test whether the copies of DCPLs work. */
    h5_fixname(FILENAME[13], fapl, filename, sizeof filename);
    if ((new_file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR

    if ((new_dsid1 = H5Dcreate2(new_file, DSET_COPY_DCPL_NAME_1, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl1_copy,
                                H5P_DEFAULT)) < 0)
        TEST_ERROR

    if ((new_dsid2 = H5Dcreate2(new_file, DSET_COPY_DCPL_NAME_2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl2_copy,
                                H5P_DEFAULT)) < 0)
        TEST_ERROR

    /* Close dataspace */
    if (H5Sclose(sid) < 0)
        TEST_ERROR

    /* Close datasets */
    if (H5Dclose(new_dsid1) < 0)
        TEST_ERROR
    if (H5Dclose(new_dsid2) < 0)
        TEST_ERROR

    /* Close the second file */
    if (H5Fclose(new_file) < 0)
        TEST_ERROR

    /* Close dataset creation property lists */
    if (H5Pclose(dcpl) < 0)
        TEST_ERROR
    if (H5Pclose(dcpl1) < 0)
        TEST_ERROR
    if (H5Pclose(dcpl2) < 0)
        TEST_ERROR
    if (H5Pclose(dcpl1_copy) < 0)
        TEST_ERROR
    if (H5Pclose(dcpl2_copy) < 0)
        TEST_ERROR

    PASSED();

    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Dclose(dsid1);
        H5Dclose(dsid2);
        H5Dclose(new_dsid1);
        H5Dclose(new_dsid2);
        H5Sclose(sid);
        H5Pclose(dcpl);
        H5Pclose(dcpl1);
        H5Pclose(dcpl2);
        H5Pclose(dcpl1_copy);
        H5Pclose(dcpl2_copy);
    }
    H5E_END_TRY;
    return FAIL;
} /* end test_copy_dcpl() */

/*-------------------------------------------------------------------------
 * Function: test_filter_delete
 *
 * Purpose: Tests deletion of filters from a dataset creation property list
 *
 * Return: Success: 0
 *  Failure: -1
 *
 * Programmer: Pedro Vicente
 *              Monday, January 26, 2004
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_filter_delete(hid_t file)
{
#ifdef H5_HAVE_FILTER_DEFLATE
    H5Z_filter_t filtn;                    /* filter identification number */
    hid_t        dsid          = -1;       /* dataset ID */
    hid_t        sid           = -1;       /* dataspace ID */
    hid_t        dcpl          = -1;       /* dataset creation property list ID */
    hid_t        dcpl1         = -1;       /* dataset creation property list ID */
    hsize_t      dims[2]       = {20, 20}; /* dataspace dimensions */
    hsize_t      chunk_dims[2] = {10, 10}; /* chunk dimensions */
    int          nfilters;                 /* number of filters in DCPL */
    unsigned     flags;                    /* flags for filter */
    herr_t       ret;                      /* generic return value */
    int          i;
#endif

    TESTING("filter deletion");

#ifdef H5_HAVE_FILTER_DEFLATE
    /* create the data space */
    if ((sid = H5Screate_simple(2, dims, NULL)) < 0)
        goto error;

    /* create dcpl  */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        goto error;
    if (H5Pset_chunk(dcpl, 2, chunk_dims) < 0)
        goto error;

    if (H5Pset_fletcher32(dcpl) < 0)
        goto error;
    if (H5Pset_deflate(dcpl, 6) < 0)
        goto error;
    if (H5Pset_shuffle(dcpl) < 0)
        goto error;

    /* create a dataset */
    if ((dsid = H5Dcreate2(file, "dsetdel", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
        goto error;

    /* get copy of dataset's dataset creation property list */
    if ((dcpl1 = H5Dget_create_plist(dsid)) < 0)
        goto error;

    /*----------------------------------------------------------------------
     * delete the deflate filter
     *----------------------------------------------------------------------
     */
    /* delete the deflate filter */
    if (H5Premove_filter(dcpl1, H5Z_FILTER_DEFLATE) < 0)
        goto error;

    /* get information about filters */
    if ((nfilters = H5Pget_nfilters(dcpl1)) < 0)
        goto error;

    /* check if filter was deleted */
    for (i = 0; i < nfilters; i++) {
        filtn = H5Pget_filter2(dcpl1, (unsigned)i, NULL, NULL, NULL, (size_t)0, NULL, NULL);
        if (H5Z_FILTER_DEFLATE == filtn)
            goto error;
    }

    /* try to get the info for the deflate filter */
    H5E_BEGIN_TRY
    {
        ret = H5Pget_filter_by_id2(dcpl1, H5Z_FILTER_DEFLATE, &flags, NULL, NULL, (size_t)0, NULL, NULL);
    }
    H5E_END_TRY;
    if (ret >= 0) {
        H5_FAILED();
        HDprintf("    Line %d: Shouldn't have deleted filter!\n", __LINE__);
        goto error;
    } /* end if */

    /* try to delete the deflate filter again */
    H5E_BEGIN_TRY
    {
        ret = H5Premove_filter(dcpl1, H5Z_FILTER_DEFLATE);
    }
    H5E_END_TRY;
    if (ret >= 0) {
        H5_FAILED();
        HDprintf("    Line %d: Shouldn't have deleted filter!\n", __LINE__);
        goto error;
    } /* end if */

    /*----------------------------------------------------------------------
     * delete all filters
     *----------------------------------------------------------------------
     */
    /* delete all filters */
    if (H5Premove_filter(dcpl1, H5Z_FILTER_ALL) < 0)
        goto error;

    /* get information about filters */
    if ((nfilters = H5Pget_nfilters(dcpl1)) < 0)
        goto error;

    /* check if filters were deleted */
    if (nfilters)
        goto error;

    /*----------------------------------------------------------------------
     * close
     *----------------------------------------------------------------------
     */

    /* clean up objects used for this test */
    if (H5Pclose(dcpl) < 0)
        goto error;
    if (H5Pclose(dcpl1) < 0)
        goto error;
    if (H5Dclose(dsid) < 0)
        goto error;
    if (H5Sclose(sid) < 0)
        goto error;

    PASSED();

    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(dcpl);
        H5Pclose(dcpl1);
        H5Dclose(dsid);
        H5Sclose(sid);
    }
    H5E_END_TRY;
    return FAIL;
#else
    SKIPPED();
    return SUCCEED;
#endif
} /* end test_filter_delete() */

/*-------------------------------------------------------------------------
 * Function: auxread_fdata
 *
 * Purpose: reads a dataset "NAME" from FID
 *
 * Return: Success: 0
 *  Failure: -1
 *
 * Programmer: Pedro Vicente
 *              Monday, March 8, 2004
 *
 *-------------------------------------------------------------------------
 */
static herr_t
auxread_fdata(hid_t fid, const char *name)
{
    hid_t   dset_id  = -1;      /* dataset ID */
    hid_t   dcpl_id  = -1;      /* dataset creation property list ID */
    hid_t   space_id = -1;      /* space ID */
    hid_t   ftype_id = -1;      /* file data type ID */
    hid_t   mtype_id = -1;      /* memory data type ID */
    size_t  msize;              /* memory size of memory type */
    void *  buf = NULL;         /* data buffer */
    hsize_t nelmts;             /* number of elements in dataset */
    int     rank;               /* rank of dataset */
    hsize_t dims[H5S_MAX_RANK]; /* dimensions of dataset */
    int     i;

    if ((dset_id = H5Dopen2(fid, name, H5P_DEFAULT)) < 0)
        goto error;
    if ((space_id = H5Dget_space(dset_id)) < 0)
        goto error;
    if ((ftype_id = H5Dget_type(dset_id)) < 0)
        goto error;
    if ((dcpl_id = H5Dget_create_plist(dset_id)) < 0)
        goto error;
    if ((rank = H5Sget_simple_extent_ndims(space_id)) < 0)
        goto error;
    HDmemset(dims, 0, sizeof dims);
    if (H5Sget_simple_extent_dims(space_id, dims, NULL) < 0)
        goto error;
    nelmts = 1;
    for (i = 0; i < rank; i++)
        nelmts *= dims[i];
    if ((mtype_id = H5Tget_native_type(ftype_id, H5T_DIR_DEFAULT)) < 0)
        goto error;
    if ((msize = H5Tget_size(mtype_id)) == 0)
        goto error;

    if (nelmts) {
        buf = (void *)HDmalloc((size_t)(nelmts * msize));
        if (buf == NULL) {
            HDprintf("cannot read into memory\n");
            goto error;
        }
        if (H5Dread(dset_id, mtype_id, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf) < 0)
            goto error;
    }

    if (H5Pclose(dcpl_id) < 0)
        goto error;
    if (H5Sclose(space_id) < 0)
        goto error;
    if (H5Dclose(dset_id) < 0)
        goto error;
    if (buf)
        HDfree(buf);

    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(dcpl_id);
        H5Sclose(space_id);
        H5Dclose(dset_id);
        H5Tclose(ftype_id);
        H5Tclose(mtype_id);
        if (buf)
            HDfree(buf);
    }
    H5E_END_TRY;
    return FAIL;
} /* end auxread_fdata() */

/*-------------------------------------------------------------------------
 * Function: test_filters_endianess
 *
 * Purpose: Reads/writes data with filters (big-endian/little-endian data)
 *
 * Return: Success: 0
 *  Failure: -1
 *
 * Programmer: Pedro Vicente
 *              Monday, March 8, 2004
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_filters_endianess(void)
{
    hid_t       fid       = -1; /* file ID */
    hid_t       dsid      = -1; /* dataset ID */
    hid_t       sid       = -1; /* dataspace ID */
    hid_t       dcpl      = -1; /* dataset creation property list ID */
    const char *data_file = H5_get_srcdir_filename("test_filters_le.h5"); /* Corrected test file name */

    TESTING("filters with big-endian/little-endian data");

    /*-------------------------------------------------------------------------
     * step 1: open a file written on a little-endian machine
     *-------------------------------------------------------------------------
     */

    /* open */
    if ((fid = H5Fopen(data_file, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR

    /* read */
    if (auxread_fdata(fid, "dset") < 0)
        TEST_ERROR

    /* close */
    if (H5Fclose(fid) < 0)
        FAIL_STACK_ERROR

    /*-------------------------------------------------------------------------
     * step 2: open a file written on a big-endian machine
     *-------------------------------------------------------------------------
     */

    /* compose the name of the file to open, using the srcdir, if appropriate */
    data_file = H5_get_srcdir_filename("test_filters_be.h5"); /* Corrected test file name */

    /* open */
    if ((fid = H5Fopen(data_file, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR

    /* read */
    if (auxread_fdata(fid, "dset") < 0)
        TEST_ERROR

    /* close */
    if (H5Fclose(fid) < 0)
        FAIL_STACK_ERROR

    PASSED();

    return SUCCEED;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(dcpl);
        H5Dclose(dsid);
        H5Sclose(sid);
        H5Fclose(fid);
    }
    H5E_END_TRY;
    return FAIL;
} /* end test_filters_endianess() */

/*-------------------------------------------------------------------------
 * Function: test_zero_dims
 *
 * Purpose: Tests read/writes to zero-sized extendible datasets
 *
 * Return: Success: 0
 *  Failure: -1
 *
 * Programmer: Quincey Koziol
 *              Tuesday, July 27, 2004
 *
 *-------------------------------------------------------------------------
 */
static herr_t
test_zero_dims(hid_t file)
{
    hid_t             s = -1, d = -1, dcpl = -1;
    hid_t             s2 = -1, d2 = -1, dcpl2 = -1;
    hsize_t           dzero = 0, dmax = H5S_UNLIMITED, csize = 5;
    hsize_t           dzero2[2] = {0, 0};
    hsize_t           dmax2[2]  = {H5S_UNLIMITED, H5S_UNLIMITED};
    hsize_t           csize2[2] = {5, 5};
    hid_t             fapl;     /* File access property list */
    H5D_chunk_index_t idx_type; /* Dataset chunk index type */
    H5F_libver_t      low;      /* File format low bound */
    herr_t            ret;

    TESTING("I/O on datasets with zero-sized dims");

    /* Get the file's file access property list */
    if ((fapl = H5Fget_access_plist(file)) < 0)
        FAIL_STACK_ERROR

    /* Get library format */
    if (H5Pget_libver_bounds(fapl, &low, NULL) < 0)
        FAIL_STACK_ERROR

    /* Close FAPL */
    if (H5Pclose(fapl) < 0)
        TEST_ERROR

    /*
     * One-dimensional dataset
     */
    if ((s = H5Screate_simple(1, &dzero, &dmax)) < 0)
        FAIL_STACK_ERROR

    /* Try creating chunked dataset with undefined chunk dimensions */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_layout(dcpl, H5D_CHUNKED) < 0)
        FAIL_STACK_ERROR

    H5E_BEGIN_TRY
    {
        d = H5Dcreate2(file, ZERODIM_DATASET, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (d > 0) {
        H5Dclose(d);
        FAIL_PUTS_ERROR("created dataset with undefined chunk dimensions")
    } /* end if */

    /* Try creating chunked dataset with zero-sized chunk dimensions */
    H5E_BEGIN_TRY
    {
        ret = H5Pset_chunk(dcpl, 1, &dzero);
    }
    H5E_END_TRY;
    if (ret > 0)
        FAIL_PUTS_ERROR("set zero-sized chunk dimensions")

    if (H5Pclose(dcpl) < 0)
        FAIL_STACK_ERROR

    /* Create the zero-sized extendible dataset */
    if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_chunk(dcpl, 1, &csize) < 0)
        FAIL_STACK_ERROR
    if ((d = H5Dcreate2(file, ZERODIM_DATASET, H5T_NATIVE_INT, s, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR

    /* Get the chunk index type */
    if (H5D__layout_idx_type_test(d, &idx_type) < 0)
        FAIL_STACK_ERROR

    /* Verify index type */
    if (low == H5F_LIBVER_LATEST) {
        if (idx_type != H5D_CHUNK_IDX_EARRAY)
            FAIL_PUTS_ERROR("should be using extensible array as index");
    }
    else if (idx_type != H5D_CHUNK_IDX_BTREE)
        FAIL_PUTS_ERROR("should be using v1 B-tree as index");

    /* Various no-op writes */
    if (H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, (void *)911) < 0)
        FAIL_STACK_ERROR
    if (H5Dwrite(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, NULL) < 0)
        FAIL_STACK_ERROR
    if (H5Dwrite(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, (void *)911) < 0)
        FAIL_STACK_ERROR
    if (H5Dwrite(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, NULL) < 0)
        FAIL_STACK_ERROR

    /* Various no-op reads */
    if (H5Dread(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, (void *)911) < 0)
        FAIL_STACK_ERROR
    if (H5Dread(d, H5T_NATIVE_INT, s, s, H5P_DEFAULT, NULL) < 0)
        FAIL_STACK_ERROR
    if (H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, (void *)911) < 0)
        FAIL_STACK_ERROR
    if (H5Dread(d, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, NULL) < 0)
        FAIL_STACK_ERROR

    if (H5Dclose(d) < 0)
        FAIL_STACK_ERROR
    if (H5Pclose(dcpl) < 0)
        FAIL_STACK_ERROR
    if (H5Sclose(s) < 0)
        FAIL_STACK_ERROR

    /*
     * Two-dimensional dataset
     */
    if ((s2 = H5Screate_simple(2, dzero2, dmax2)) < 0)
        FAIL_STACK_ERROR

    /* Try creating chunked dataset with undefined chunk dimensions */
    if ((dcpl2 = H5Pcreate(H5P_DATASET_CREATE)) < 0)
        FAIL_STACK_ERROR
    if (H5Pset_layout(dcpl2, H5D_CHUNKED) < 0)
        FAIL_STACK_ERROR

    H5E_BEGIN_TRY
    {
        d2 = H5Dcreate2(file, ZERODIM_DATASET2, H5T_NATIVE_INT, s2, H5P_DEFAULT, dcpl2, H5P_DEFAULT);