| Index: gcc/gcc/testsuite/gfortran.dg/assignment_2.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/assignment_2.f90 b/gcc/gcc/testsuite/gfortran.dg/assignment_2.f90
|
| index 3549fbea98337bd387c74f48c119a3348a5da7c6..47e400962cb78246770a98134f7240c75c1e41c3 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/assignment_2.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/assignment_2.f90
|
| @@ -38,10 +38,10 @@ end module m2
|
|
|
| MODULE m3
|
| INTERFACE ASSIGNMENT(=)
|
| - module procedure s ! { dg-error "must not redefine an INTRINSIC type" }
|
| + module procedure s
|
| END Interface
|
| contains
|
| - SUBROUTINE s(a,b)
|
| + SUBROUTINE s(a,b) ! { dg-error "must not redefine an INTRINSIC type" }
|
| REAL,INTENT(OUT),VOLATILE :: a(1,*)
|
| REAL,INTENT(IN) :: b(:,:)
|
| END SUBROUTINE
|
|
|