> The testcase failed with ...

It is fixed by the following patch

--- ../_clean/gcc/testsuite/gfortran.dg/public_private_module_3.f90     
2012-04-15 11:18:00.000000000 +0200
+++ gcc/testsuite/gfortran.dg/public_private_module_3.f90       2012-04-15 
19:09:10.000000000 +0200
@@ -58,3 +58,4 @@ contains
   subroutine foo()
   end subroutine foo
 end module m2
+! { dg-final { keep-modules "" } }
--- ../_clean/gcc/testsuite/gfortran.dg/public_private_module_4.f90     
2012-04-15 11:18:00.000000000 +0200
+++ gcc/testsuite/gfortran.dg/public_private_module_4.f90       2012-04-15 
19:12:08.000000000 +0200
@@ -20,3 +20,5 @@ a = b + (c .myop. a)
 
 call x%func()
 end
+! { dg-final { cleanup-modules "m" } }
+! { dg-final { cleanup-modules "m2" } }

This may need some synchronization with 
implicitly cleanup-modules, part 2.

Dominique

Reply via email to