Subversion Repositories openrisc

! { dg-do compile }

! Test the fix for the problem described in PR46818.

! Note that the module file from whole_file_30.f90, 'system_defs_m',

! is needed for this test.

!

! Contributed by Martien Hulsen  

! and reduced by Tobias Burnus  

!

! ========== t.f90 ===========================

module convecreac_m

  use system_defs_m

  type(sysvector_t), pointer :: solution

end module convecreac_m

program t

  use convecreac_m

  implicit none

  type(sysvector_t), target :: sol

  solution => sol

end program t

! { dg-final { cleanup-modules "system_defs_m convecreac_m" } }