1! { dg-do compile }
2! Test the fix for the problem described in PR46818.
3!
4! Contributed by Martien Hulsen  <m.a.hulsen@tue.nl>
5! and reduced by Tobias Burnus  <burnus@gcc.gnu.org>
6!
7! ============== system_defs.f90 =============
8module system_defs_m
9  type sysvector_t
10    integer :: probnr = 0
11    real, allocatable, dimension(:) :: u
12  end type sysvector_t
13end module system_defs_m
14