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 |