| 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
|
|
|