gcc/testsuite/gfortran.dg/whole_file_31.f90

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