This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch, Fortran] PR52916 - fix TREE_PUBLIC() = 0 for module procedures
- From: dominiq at lps dot ens dot fr (Dominique Dhumieres)
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches at gcc dot gnu dot org, burnus at net-b dot de, hjl dot tools at gmail dot com
- Date: Sun, 15 Apr 2012 19:17:20 +0200
- Subject: Re: [Patch, Fortran] PR52916 - fix TREE_PUBLIC() = 0 for module procedures
> 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