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 ===========================
9module convecreac_m
10  use system_defs_m
11  type(sysvector_t), pointer :: solution
12end module convecreac_m
13
14program t
15  use convecreac_m
16  implicit none
17  type(sysvector_t), target :: sol
18  solution => sol
19end program t
20! { dg-final { cleanup-modules "system_defs_m" } }
21