Index: gcc/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 b/gcc/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 |
index 915f92e39827f6a91ce8696a1ef285c2ab26b980..40a0910b1ed9b15c96ed710627dcedb9fb5c3631 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 |
+++ b/gcc/gcc/testsuite/gfortran.dg/redefined_intrinsic_assignment.f90 |
@@ -7,10 +7,10 @@ |
MODULE M1 |
IMPLICIT NONE |
INTERFACE ASSIGNMENT(=) |
- MODULE PROCEDURE T1 ! { dg-error "redefine an INTRINSIC type assignment" } |
+ MODULE PROCEDURE T1 |
END INTERFACE |
CONTAINS |
- SUBROUTINE T1(I,J) |
+ SUBROUTINE T1(I,J) ! { dg-error "redefine an INTRINSIC type assignment" } |
INTEGER, INTENT(OUT) :: I |
INTEGER, INTENT(IN) :: J |
I=-J |