gcc/testsuite/gfortran.dg/whole_file_30.f90

   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 =============
   8 module system_defs_m
   9   type sysvector_t
  10     integer :: probnr = 0
  11     real, allocatable, dimension(:) :: u
  12   end type sysvector_t
  13 end module system_defs_m