Subversion Repositories openrisc

! { dg-do compile }

! Tests fix for PR25059, which gave and ICE after error message

! Contributed by Joost VandeVondele  

MODULE M1

 TYPE T1

  INTEGER :: I

 END TYPE T1

 INTERFACE ASSIGNMENT(=)

   MODULE PROCEDURE S1

 END INTERFACE

CONTAINS

   SUBROUTINE S1(I,J)

     TYPE(T1), INTENT(OUT):: I

     TYPE(T1), INTENT(IN) :: J

     I%I=J%I**2

   END SUBROUTINE S1

END MODULE M1

USE M1

CONTAINS

PURE SUBROUTINE S2(I,J)

     TYPE(T1), INTENT(OUT):: I

     TYPE(T1), INTENT(IN) :: J

     I=J                      ! { dg-error "is not PURE" }

END SUBROUTINE S2

END

! { dg-final { cleanup-modules "m1" } }