gcc/testsuite/gfortran.dg/whole_file_30.f90

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