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