Index: gcc/gcc/testsuite/gfortran.dg/interface_21.f90 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/interface_21.f90 b/gcc/gcc/testsuite/gfortran.dg/interface_21.f90 |
index fea6507b05d5ab618372e7e70ee68fe4c1817214..566a9ef37075d7273595bd47f668d26a2e352403 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/interface_21.f90 |
+++ b/gcc/gcc/testsuite/gfortran.dg/interface_21.f90 |
@@ -18,5 +18,8 @@ end module m |
use m |
implicit none |
EXTERNAL foo ! implicit interface is undefined |
-call sub(foo) ! { dg-error "Type/rank mismatch in argument" } |
+call sub(foo) ! { dg-error "is not a function" } |
end |
+ |
+! { dg-final { cleanup-modules "m" } } |
+ |