This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Changing module files
On 30/12/2011 18:11, Andrew Benson wrote:
>
[...]
>
>> Looks like a problem with uninitialized memory. Unfortunately, valgrind
>> is broken on my system. I'll look around a bit more.
>
My guess was it was a tree rebalancing problem. But I don't see
how it is (if at all) related to uninitialized memory.
I get some uninitialized errors from valgrind, but they are deep into
the libc and don't seem related to gfortran at all.
For what it's worth I attach the diff of the two module files. The
moving symbol is the (unnamed) interface of the
`satellite_time_until_merging' procedure pointer in case it rings a bell.
> I've tried running it through valgrind myself, but it's not reporting any
> uninitialized memory problems (just a small amount of memory lost at the end):
>
> $ valgrind gfortran -c
It looks like you are tracing the driver only.
You should trace f951 instead (should be somewhere like
/home/abenson/gcc4.7/libexec/gcc/x86_64-unknown-linux-gnu/4.7.0).
Or you can try passing the --trace-children=yes option to valgrind
Mikael
--- be19c58cc48940b0ada59202fa85b526/dynamical_friction_boylankolchin2008.mod 2011-12-30 14:58:29.462343496 +0100
+++ f731569d58b5c90c6749a7c11342c5e2/dynamical_friction_boylankolchin2008.mod 2011-12-30 14:59:14.377789996 +0100
@@ -1,5 +1,5 @@
GFORTRAN module version '8' created from source/satellites.merging.dynamical_friction.timescale.Boylan-Kolchin2008.F90
-MD5:8c7907551358a4c4244dfbfb47b9bc06 -- If you edit this, you'll get what you deserve.
+MD5:8926d312f9796007978188dfc6b4249c -- If you edit this, you'll get what you deserve.
(() () () () () () () () () () () () () () () () () () () () () () ()
() () () ())
@@ -25,8 +25,6 @@
5 'satellite_time_until_merging' '' 'satellite_time_until_merging' 3 ((
PROCEDURE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL DUMMY FUNCTION
PROCEDURE PROC_POINTER) (REAL 8 7 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-7 '' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
-FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
6 'Varying_string' 'iso_varying_string' 'varying_string' 3 ((DERIVED
UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 ALLOC_COMP PRIVATE_COMP)
(UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 ((8 'chars' (CHARACTER 1 0 0 0
@@ -37,6 +35,8 @@
9 'destroy_vs' 'iso_varying_string' 'destroy_vs' 3 ((PROCEDURE
UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE IMPLICIT_PURE) (
UNKNOWN 0 0 0 0 UNKNOWN ()) 10 0 (11) () 0 () () () 0 0)
+7 '' '' '' 3 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN 0 0
+FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
11 'string' '' 'string' 10 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
0 0 DUMMY) (CLASS 12 0 0 0 CLASS ()) 0 0 () () 0 () () () 0 0)
12 '__class_iso_varying_string_Varying_string' 'iso_varying_string'