1! { dg-do compile }
2!
3! PR 40743: [4.5 Regression] ICE when compiling iso_varying_string.f95 at revision 149591
4!
5! Reduced from http://www.fortran.com/iso_varying_string.f95
6! Contributed by Janus Weil <janus@gcc.gnu.org>
7
8  implicit none
9
10  type :: varying_string
11  end type
12
13  interface assignment(=)
14     procedure op_assign_VS_CH
15  end interface
16
17contains
18
19  subroutine op_assign_VS_CH (var, exp)
20    type(varying_string), intent(out) :: var
21    character(LEN=*), intent(in)      :: exp
22  end subroutine
23
24  subroutine split_VS
25    type(varying_string) :: string
26    call split_CH(string)
27  end subroutine
28
29  subroutine split_CH (string)
30    type(varying_string) :: string
31    string = ""
32  end subroutine
33
34end
35
36