2 ! { dg-compile-aux-modules "whole_file_28.f90" }
3 ! Test the fix for the problem described in PR45077 comments #4 and #5.
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
8 use iso_red
, string_t
=> varying_string
10 function line_get_string_advance (line
) result (string
)
11 type(string_t
) :: string
13 end function line_get_string_advance
17 use iso_red
, string_t
=> varying_string
18 use ifiles
, only
: line_get_string_advance
20 subroutine syntax_init_from_ifile ()
21 type(string_t
) :: string
22 string
= line_get_string_advance ("")
23 end subroutine syntax_init_from_ifile
24 end module syntax_rules
26 ! { dg-final { cleanup-modules "iso_red" } }