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.
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
9 use iso_red, string_t => varying_string
11 function line_get_string_advance (line) result (string)
12 type(string_t) :: string
14 end function line_get_string_advance
18 use iso_red, string_t => varying_string
19 use ifiles, only: line_get_string_advance
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
27 ! { dg-final { cleanup-modules "syntax_rules ifiles iso_red" } }