gcc/testsuite/gfortran.dg/module_equivalence_6.f90

   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 !
   7 MODULE H5GLOBAL
   8   IMPLICIT NONE
   9   INTEGER :: H5P_flags
  10   INTEGER :: H5P_DEFAULT_F
  11   EQUIVALENCE(H5P_flags, H5P_DEFAULT_F)
  12 END MODULE H5GLOBAL
  13 MODULE HDF5
  14   USE H5GLOBAL
  15 END MODULE HDF5
  16 PROGRAM fortranlibtest
  17   USE HDF5
  18   IMPLICIT NONE
  19   INTEGER :: ii
  20   ii = H5P_DEFAULT_F
  21 END PROGRAM fortranlibtest
  22 ! { dg-final { cleanup-modules "H5GLOBAL HD5" } }