1! { dg-do compile } 2! 3! Fixes PR38171 a regression caused by the fix for PR37706. 4! 5! Contributed by Scot Breitenfeld <brtnfld@hdfgroup.org> 6! 7MODULE H5GLOBAL 8 IMPLICIT NONE 9 INTEGER :: H5P_flags 10 INTEGER :: H5P_DEFAULT_F 11 EQUIVALENCE(H5P_flags, H5P_DEFAULT_F) 12END MODULE H5GLOBAL 13MODULE HDF5 14 USE H5GLOBAL 15END MODULE HDF5 16PROGRAM fortranlibtest 17 USE HDF5 18 IMPLICIT NONE 19 INTEGER :: ii 20 ii = H5P_DEFAULT_F 21END PROGRAM fortranlibtest 22