* runtime/main.c (stupid_function_name_for_static_linking): New
function.
* runtime/error.c (internal_error): Call
stupid_function_name_for_static_linking.
* libgfortran.h: Add prototype for
stupid_function_name_for_static_linking.
* gcc/testsuite/lib/target-supports.exp
(check_effective_target_static_libgfortran): New
static_libgfortran effective target.
* gcc/testsuite/gfortran.dg/static_linking_1.f: New test.
* gcc/testsuite/gfortran.dg/static_linking_1.c: New file.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106484
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-11-04 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR libfortran/22298
+ * gcc/testsuite/lib/target-supports.exp
+ (check_effective_target_static_libgfortran): New
+ static_libgfortran effective target.
+ * gcc/testsuite/gfortran.dg/static_linking_1.f: New test.
+ * gcc/testsuite/gfortran.dg/static_linking_1.c: New file.
+
2005-11-04 Hans-Peter Nilsson <hp@axis.com>
* gcc.dg/pr24615.c: Guard test with { target fpic }.
2005-11-02 Andrew Pinski <pinskia@physics.uc.edu>
PR fortran/18157
- * gfortran.fortran-torture/compile/defined_type_1.f90: New test.
- * gfortran.fortran-torture/compile/defined_type_2.f90: New
- test.
- * gfortran.fortran-torture/compile/defined_type_3.f90:
- New test.
+ * gfortran.fortran-torture/compile/defined_type_1.f90: New test.
+ * gfortran.fortran-torture/compile/defined_type_2.f90: New test.
+ * gfortran.fortran-torture/compile/defined_type_3.f90: New test.
2005-11-02 Mark Mitchell <mark@codesourcery.com>
--- /dev/null
+extern void f_(void);
+int main (void)
+{
+ f_();
+ return 0;
+}
--- /dev/null
+! { dg-require-effective-target static_libgfortran }
+! { dg-do run }
+! { dg-additional-sources static_linking_1.c }
+! { dg-options "-static" }
+!
+! This testcase checks that statically linking libgfortran with C main()
+! really calls the constructor function
+! PR libfortran/22298
+ subroutine f
+ print *, "subroutine output"
+ end
return $et_fortran_large_int_saved
}
+# Return 1 if we can statically link libgfortran, 0 otherwise.
+#
+# When the target name changes, replace the cached result.
+
+proc check_effective_target_static_libgfortran { } {
+ global et_static_libgfortran
+ global et_static_libgfortran_target_name
+ global tool
+
+ if { ![info exists et_static_libgfortran_target_name] } {
+ set et_static_libgfortran_target_name ""
+ }
+
+ # If the target has changed since we set the cached value, clear it.
+ set current_target [current_target_name]
+ if { $current_target != $et_static_libgfortran_target_name } {
+ verbose "check_effective_target_static_libgfortran: `$et_static_libgfortran_target_name' `$current_target'" 2
+ set et_static_libgfortran_target_name $current_target
+ if [info exists et_static_libgfortran_saved] {
+ verbose "check_effective_target_static_libgfortran: removing cached result" 2
+ unset et_static_libgfortran_saved
+ }
+ }
+
+ if [info exists et_static_libgfortran_saved] {
+ verbose "check_effective_target_static_libgfortran returning saved $et_static_libgfortran_saved" 2
+ } else {
+ set et_static_libgfortran_saved 0
+
+ # Set up, compile, and execute a test program using static linking.
+ # Include the current process ID in the file names to prevent
+ # conflicts with invocations for multiple testsuites.
+ set src static[pid].f
+ set exe static[pid].x
+
+ set f [open $src "w"]
+ puts $f " print *, 'test'"
+ puts $f " end"
+ close $f
+
+ verbose "check_effective_target_static_libgfortran compiling testfile $src" 2
+ set lines [${tool}_target_compile $src $exe executable "-static"]
+ file delete $src
+
+ if [string match "" $lines] then {
+ # No error message, compilation succeeded.
+ set et_static_libgfortran_saved 1
+ }
+ }
+
+ return $et_static_libgfortran_saved
+}
+
# Return 1 if the target supports executing AltiVec instructions, 0
# otherwise. Cache the result.
+2005-11-04 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR libfortran/22298
+ * runtime/main.c (stupid_function_name_for_static_linking): New
+ function.
+ * runtime/error.c (internal_error): Call
+ stupid_function_name_for_static_linking.
+ * libgfortran.h: Add prototype for
+ stupid_function_name_for_static_linking.
+
2005-11-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/14994
2005-10-31 Jerry DeLisle <jvdelisle@verizon.net>
- PR libgfortran/24584
- * io/list_read.c (free_saved): Set saved_used to zero.
+ PR libgfortran/24584
+ * io/list_read.c (free_saved): Set saved_used to zero.
2005-10-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
/* main.c */
+extern void stupid_function_name_for_static_linking (void);
+internal_proto(stupid_function_name_for_static_linking);
+
extern void library_start (void);
internal_proto(library_start);
recursion_check ();
show_locus ();
st_printf ("Internal Error: %s\n", message);
+
+ /* This function call is here to get the main.o object file included
+ when linking statically. This works because error.o is supposed to
+ be always linked in (and the function call is in internal_error
+ because hopefully it doesn't happen too often). */
+ stupid_function_name_for_static_linking();
+
sys_exit (3);
}
#include "libgfortran.h"
+/* Stupid function to be sure the constructor is always linked in, even
+ in the case of static linking. See PR libfortran/22298 for details. */
+void
+stupid_function_name_for_static_linking (void)
+{
+ return;
+}
+
/* This is the offset (in bytes) required to cast from logical(8)* to
logical(4)*. and still get the same result. Will be 0 for little-endian
machines and 4 for big-endian machines. */