This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch, Fortran] PR52916 - fix TREE_PUBLIC() = 0 for module procedures
H.J. Lu wrote:
The testcase failed with
/export/gnu/import/git/gcc-test-ia32/src-trunk/gcc/testsuite/gfortran.dg/public_private_module_4.f90:11.4:^M
^M
use m^M
1^M
Fatal Error: Can't open module file 'm.mod' for reading at (1): No
such file or directory^M
compiler exited with status 1
Ups. Seemingly, the mod files in the testsuite/gfortran.dg got picked
up. Additional sources are appended after the main source - rather than
the other way round.
I intent to fix it with the following patch.
Thanks for testing!
Tobias
Index: public_private_module_3.f90
===================================================================
--- public_private_module_3.f90 (Revision 186467)
+++ public_private_module_3.f90 (Arbeitskopie)
@@ -1,7 +1,6 @@
-! { dg-do compile }
+! { dg-do link }
+! { dg-additional-sources public_private_module_4.f90 }
!
-! To be used by public_private_module_4.f90
-!
! PR fortran/52916
! Cf. PR fortran/40973
!
Index: public_private_module_4.f90
===================================================================
--- public_private_module_4.f90 (Revision 186467)
+++ public_private_module_4.f90 (Arbeitskopie)
@@ -1,6 +1,7 @@
-! { dg-do link }
-! { dg-additional-sources public_private_module_3.f90 }
+! { dg-do compile { target skip-all-targets } }
!
+! To be used by public_private_module_3.f90
+!
! PR fortran/52916
! Cf. PR fortran/40973
!