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