! { dg-do compile } | |
! Test the fix for the problem described in PR46818. | |
! | |
! Contributed by Martien Hulsen <m.a.hulsen@tue.nl> | |
! and reduced by Tobias Burnus <burnus@gcc.gnu.org> | |
! | |
! ============== system_defs.f90 ============= | |
module system_defs_m | |
type sysvector_t | |
integer :: probnr = 0 | |
real, allocatable, dimension(:) :: u | |
end type sysvector_t | |
end module system_defs_m |