1! { dg-do compile }
2! Tests the fix for PR25077 in which no diagnostic was produced
3! for the redefinition of an intrinsic type assignment.
4!
5! Contributed by Joost VandeVondele  <jv244@cam.ac.uk>
6!
7MODULE M1
8 IMPLICIT NONE
9 INTERFACE ASSIGNMENT(=)
10  MODULE PROCEDURE T1
11 END INTERFACE
12CONTAINS
13 SUBROUTINE T1(I,J) ! { dg-error "redefine an INTRINSIC type assignment" }
14   INTEGER, INTENT(OUT)  :: I
15   INTEGER, INTENT(IN)  :: J
16   I=-J
17 END SUBROUTINE T1
18END MODULE M1
19