gcc/testsuite/gfortran.dg/whole_file_31.f90

   1 ! { dg-do compile }
   2 ! Test the fix for the problem described in PR46818.
   3 ! Note that the module file from whole_file_30.f90, 'system_defs_m',
   4 ! is needed for this test.
   5 !
   6 ! Contributed by Martien Hulsen  <m.a.hulsen@tue.nl>
   7 ! and reduced by Tobias Burnus  <burnus@gcc.gnu.org>
   8 !
   9 ! ========== t.f90 ===========================
  10 module convecreac_m
  11   use system_defs_m
  12   type(sysvector_t), pointer :: solution
  13 end module convecreac_m
  14
  15 program t
  16   use convecreac_m
  17   implicit none
  18   type(sysvector_t), target :: sol
  19   solution => sol
  20 end program t
  21 ! { dg-final { cleanup-modules "system_defs_m" } }