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