gcc/testsuite/gfortran.dg/whole_file_29.f90

   1 ! { dg-do compile }
   2 ! Test the fix for the problem described in PR45077 comments #4 and #5.
   3 ! Note that the module file from whole_file_28.f90, 'iso_red', is
   4 ! needed for this test.
   5 !
   6 ! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
   7 !
   8 module ifiles
   9   use iso_red, string_t => varying_string
  10 contains
  11   function line_get_string_advance (line) result (string)
  12     type(string_t) :: string
  13     character :: line
  14   end function line_get_string_advance
  15 end module ifiles
  16
  17 module syntax_rules
  18   use iso_red, string_t => varying_string
  19   use ifiles, only: line_get_string_advance
  20 contains
  21   subroutine syntax_init_from_ifile ()
  22     type(string_t) :: string
  23        string = line_get_string_advance ("")
  24   end subroutine syntax_init_from_ifile
  25 end module syntax_rules
  26 end
  27 ! { dg-final { cleanup-modules "iso_red" } }