3 ! Fixes PR38171 a regression caused by the fix for PR37706.
5 ! Contributed by Scot Breitenfeld <brtnfld@hdfgroup.org>
10 INTEGER :: H5P_DEFAULT_F
11 EQUIVALENCE(H5P_flags, H5P_DEFAULT_F)
16 PROGRAM fortranlibtest
21 END PROGRAM fortranlibtest
22 ! { dg-final { cleanup-modules "h5global hdf5" } }