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