1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
new file mode 100644
index 000000000..8eb47e19b
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90
@@ -0,0 +1,19 @@
+! { 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  <jv244@cam.ac.uk>
+!
+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" } }