Subversion Repositories openrisc

! { dg-do compile }
! PR35475  gfortran fails to compile valid code with ICE error in fold-const.c
! Test case from PR report added to avoid future regression
module modone
  type mytype
    real :: myvar
  end type
end module

module modtwo
  interface
    subroutine subone(mytype_cur)
      use modone
      type (mytype) mytype_cur
    end subroutine
  end interface

contains

  subroutine subtwo(mytype_cur)
    use modone
    type (mytype) mytype_cur,mytype_fin
    mytype_fin=mytype_cur
    return
  end subroutine

  subroutine subthree(mytype_cur)
    use modone
    type (mytype) mytype_cur
    call subone(mytype_cur)
  end subroutine 

end module
! { dg-final { cleanup-modules "modone modtwo" } }