Subversion Repositories openrisc

! { dg-do compile }

! Tests the fix for PR25077 in which no diagnostic was produced

! for the redefinition of an intrinsic type assignment.

!

! Contributed by Joost VandeVondele  

!

MODULE M1

 IMPLICIT NONE

 INTERFACE ASSIGNMENT(=)

  MODULE PROCEDURE T1

 END INTERFACE

CONTAINS

 SUBROUTINE T1(I,J) ! { dg-error "redefine an INTRINSIC type assignment" }

   INTEGER, INTENT(OUT)  :: I

   INTEGER, INTENT(IN)  :: J

   I=-J

 END SUBROUTINE T1

END MODULE M1

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