http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50259
--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-09-01
16:20:06 UTC ---
With valgrind, I get now:
test.f90:4.19:
CHARACTER (len=default_path_length), DIMENSION(:,:), POINTER ::
1
Error: Expected another dimension in array declaration at (1)
test.f90:5:
initial_variables
1
Error: Unclassifiable statement at (1)
==31867== Invalid read of size 8
==31867== at 0x574B9A: resolve_fl_derived0(gfc_symbol*) (resolve.c:11587)
==31867== by 0x57DAF2: resolve_fl_derived(gfc_symbol*) (resolve.c:11721)
==31867== by 0x5729CE: resolve_symbol(gfc_symbol*) (resolve.c:11993)
...
==31867== Address 0x70958f0 is 0 bytes inside a block of size 48 free'd
==31867== at 0x4C2892E: free (in
/usr/lib64/valgrind/vgpreload_memcheck-amd64-linux.so)
==31867== by 0x594CAB: gfc_free_charlen(gfc_charlen*, gfc_charlen*)
(symbol.c:3218)
==31867== by 0x561CFD: reject_statement() (parse.c:1692)
...
==31867== Invalid read of size 4
==31867== at 0x577E4E: _ZL15resolve_charlenP11gfc_charlen.isra.45
(resolve.c:9674)
==31867== by 0x574BAC: resolve_fl_derived0(gfc_symbol*) (resolve.c:11588)
==31867== by 0x57DAF2: resolve_fl_derived(gfc_symbol*) (resolve.c:11721)
==31867== by 0x5729CE: resolve_symbol(gfc_symbol*) (resolve.c:11993)
...
==31867== Invalid write of size 4
==31867== at 0x577E73: _ZL15resolve_charlenP11gfc_charlen.isra.45
(resolve.c:9677)
==31867== by 0x574BAC: resolve_fl_derived0(gfc_symbol*) (resolve.c:11588)
==31867== by 0x57DAF2: resolve_fl_derived(gfc_symbol*) (resolve.c:11721)
==31867== by 0x5729CE: resolve_symbol(gfc_symbol*) (resolve.c:11993)
...
==31867== Invalid read of size 4
==31867== at 0x5757C1: gfc_resolve_expr(gfc_expr*) (resolve.c:6099)
==31867== by 0x577DFA: resolve_index_expr(gfc_expr*) (resolve.c:9654)
==31867== by 0x577E87: _ZL15resolve_charlenP11gfc_charlen.isra.45
(resolve.c:9681)
==31867== by 0x574BAC: resolve_fl_derived0(gfc_symbol*) (resolve.c:11588)
...
test.f90:7.26:
END MODULE cp_parser_types
1
Internal Error at (1):
gfc_resolve_expr(): Bad expression type
