diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index afdaf03535f..5f1c028efab 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2007-03-26  Uros Bizjak  <ubizjak@gmail.com>
+
+	* gfortran.dg/use_[567].f90: Use correct cleanup-modules dg directive.
+
 2007-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/31199
diff --git a/gcc/testsuite/gfortran.dg/use_5.f90 b/gcc/testsuite/gfortran.dg/use_5.f90
index 6d2de048043..1a210e0ea0c 100644
--- a/gcc/testsuite/gfortran.dg/use_5.f90
+++ b/gcc/testsuite/gfortran.dg/use_5.f90
@@ -46,4 +46,4 @@ use z
  if ((.addfive. i) /= 2+5) call abort ()
 end
 
-! { dg-final { cleanup-tree-dump "x y z" } }
+! { dg-final { cleanup-modules "x y z" } }
diff --git a/gcc/testsuite/gfortran.dg/use_6.f90 b/gcc/testsuite/gfortran.dg/use_6.f90
index f0b133e67ae..1a6ba4a59b5 100644
--- a/gcc/testsuite/gfortran.dg/use_6.f90
+++ b/gcc/testsuite/gfortran.dg/use_6.f90
@@ -42,4 +42,4 @@ use y, operator(.my.) => operator(.addfive.) ! { dg-error "Fortran 2003: Renamin
 use z
 end
 
-! { dg-final { cleanup-tree-dump "x y z" } }
+! { dg-final { cleanup-modules "x y z" } }
diff --git a/gcc/testsuite/gfortran.dg/use_7.f90 b/gcc/testsuite/gfortran.dg/use_7.f90
index 3973176b09b..cbb1b35d6b2 100644
--- a/gcc/testsuite/gfortran.dg/use_7.f90
+++ b/gcc/testsuite/gfortran.dg/use_7.f90
@@ -46,4 +46,4 @@ use y, operator(.my.) => sub ! { dg-error "Syntax error in USE statement" }
 use y, operator(+) => operator(.addfive.) ! { dg-error "Syntax error in USE statement" }
 end
 
-! { dg-final { cleanup-tree-dump "x y z" } }
+! { dg-final { cleanup-modules "x y z" } }