1! { dg-do compile }
2! PR35475  gfortran fails to compile valid code with ICE error in fold-const.c
3! Test case from PR report added to avoid future regression
4module modone
5  type mytype
6    real :: myvar
7  end type
8end module
9
10module modtwo
11  interface
12    subroutine subone(mytype_cur)
13      use modone
14      type (mytype) mytype_cur
15    end subroutine
16  end interface
17
18contains
19
20  subroutine subtwo(mytype_cur)
21    use modone
22    type (mytype) mytype_cur,mytype_fin
23    mytype_fin=mytype_cur
24    return
25  end subroutine
26
27  subroutine subthree(mytype_cur)
28    use modone
29    type (mytype) mytype_cur
30    call subone(mytype_cur)
31  end subroutine
32
33end module
34