[Bug fortran/112967] New: Valgrind error on gfortran.dg/unexpected_interface.f90

[Bug fortran/112967] New: Valgrind error on gfortran.dg/unexpected_interface.f90

[jakub at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=112967

            Bug ID: 112967
           Summary: Valgrind error on gfortran.dg/unexpected_interface.f90
           Product: gcc
           Version: 14.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: jakub at gcc dot gnu.org
  Target Milestone: ---

With --enable-checking=release,valgrind --disable-bootstrap                     
--enable-valgrind-annotations build I'm seeing:
/home/jakub/src/gcc/obj88/gcc/testsuite/gfortran14/../../gfortran
-B/home/jakub/src/gcc/obj88/gcc/testsuite/gfortran14/../../
-B/home/jakub/src/gcc/obj88/x86_64-pc
-linux-gnu/./libgfortran/ 
/home/jakub/src/gcc/gcc/testsuite/gfortran.dg/unexpected_interface.f90   
-fdiagnostics-plain-output  -fdiagnostics-plain-output    -O  -pedantic-errors
-B
/home/jakub/src/gcc/obj88/x86_64-pc-linux-gnu/./libatomic/
-B/home/jakub/src/gcc/obj88/x86_64-pc-linux-gnu/./libatomic/.libs -S -o
unexpected_interface.s    (timeout = 300)
spawn -ignore SIGHUP
/home/jakub/src/gcc/obj88/gcc/testsuite/gfortran14/../../gfortran
-B/home/jakub/src/gcc/obj88/gcc/testsuite/gfortran14/../../
-B/home/jakub/src/gcc/obj88/x86_64-
pc-linux-gnu/./libgfortran/
/home/jakub/src/gcc/gcc/testsuite/gfortran.dg/unexpected_interface.f90
-fdiagnostics-plain-output -fdiagnostics-plain-output -O -pedantic-errors
-B/home/j
akub/src/gcc/obj88/x86_64-pc-linux-gnu/./libatomic/
-B/home/jakub/src/gcc/obj88/x86_64-pc-linux-gnu/./libatomic/.libs -S -o
unexpected_interface.s
/home/jakub/src/gcc/gcc/testsuite/gfortran.dg/unexpected_interface.f90:7:74:
Error: Unexpected INTERFACE statement in INTERFACE block at (1)
==3209268== Invalid read of size 8
==3209268==    at 0x7C0ADF: decode_statement() (parse.cc:359)
==3209268==    by 0x7C981C: next_free (parse.cc:1597)
==3209268==    by 0x7C981C: next_statement() (parse.cc:1829)
==3209268==    by 0x7CB70D: parse_interface (parse.cc:3996)
==3209268==    by 0x7CB70D: parse_spec(gfc_statement) (parse.cc:4352)
==3209268==    by 0x7CE92C: parse_progunit(gfc_statement) (parse.cc:6586)
==3209268==    by 0x7CFD56: gfc_parse_file() (parse.cc:7172)
==3209268==    by 0x82924F: gfc_be_parse_file() (f95-lang.cc:239)
==3209268==    by 0xDA8B2D: compile_file() (toplev.cc:446)
==3209268==    by 0x71D233: do_compile (toplev.cc:2150)
==3209268==    by 0x71D233: toplev::main(int, char**) (toplev.cc:2306)
==3209268==    by 0x71E9FA: main (main.cc:39)
==3209268==  Address 0x50f5b78 is 120 bytes inside a block of size 336 free'd
==3209268==    at 0x48480E4: free (vg_replace_malloc.c:872)
==3209268==    by 0x8128C0: gfc_free_symbol(gfc_symbol*&) (symbol.cc:3103)
==3209268==    by 0x812965: gfc_release_symbol(gfc_symbol*&) (symbol.cc:3132)
==3209268==    by 0x812A4E: delete_symbol_from_ns(gfc_symbol*, gfc_namespace*)
(symbol.cc:3673)
==3209268==    by 0x812BD7: gfc_restore_last_undo_checkpoint() (symbol.cc:3731)
==3209268==    by 0x7BFB01: reject_statement() (parse.cc:3108)
==3209268==    by 0x7CBCEA: parse_interface (parse.cc:4041)
==3209268==    by 0x7CBCEA: parse_spec(gfc_statement) (parse.cc:4352)
==3209268==    by 0x7CE92C: parse_progunit(gfc_statement) (parse.cc:6586)
==3209268==    by 0x7CFD56: gfc_parse_file() (parse.cc:7172)
==3209268==    by 0x82924F: gfc_be_parse_file() (f95-lang.cc:239)
==3209268==    by 0xDA8B2D: compile_file() (toplev.cc:446)
==3209268==    by 0x71D233: do_compile (toplev.cc:2150)
==3209268==    by 0x71D233: toplev::main(int, char**) (toplev.cc:2306)
==3209268==  Block was alloc'd at
==3209268==    at 0x484A464: calloc (vg_replace_malloc.c:1328)
==3209268==    by 0x1EC8A14: xcalloc (xmalloc.c:164)
==3209268==    by 0x81171E: gfc_new_symbol (symbol.cc:3144)
==3209268==    by 0x81171E: gfc_get_sym_tree(char const*, gfc_namespace*,
gfc_symtree**, bool) (symbol.cc:3384)
==3209268==    by 0x811A73: gfc_get_symbol(char const*, gfc_namespace*,
gfc_symbol**) (symbol.cc:3437)
==3209268==    by 0x768BB5: gfc_match_interface() (interface.cc:292)
==3209268==    by 0x7BFB71: match_word(char const*, match (*)(), locus*)
(parse.cc:75)
==3209268==    by 0x7C2695: decode_statement() (parse.cc:566)
==3209268==    by 0x7C981C: next_free (parse.cc:1597)
==3209268==    by 0x7C981C: next_statement() (parse.cc:1829)
==3209268==    by 0x7CB70D: parse_interface (parse.cc:3996)
==3209268==    by 0x7CB70D: parse_spec(gfc_statement) (parse.cc:4352)
==3209268==    by 0x7CE92C: parse_progunit(gfc_statement) (parse.cc:6586)
==3209268==    by 0x7CFD56: gfc_parse_file() (parse.cc:7172)
==3209268==    by 0x82924F: gfc_be_parse_file() (f95-lang.cc:239)
==3209268==

[Bug fortran/112967] Valgrind error on gfortran.dg/unexpected_interface.f90

[anlauf at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=112967

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |DUPLICATE
                 CC|                            |anlauf at gcc dot gnu.org
             Status|UNCONFIRMED                 |RESOLVED

--- Comment #1 from anlauf at gcc dot gnu.org ---
Same traceback as by the ASAN instrumented compiler, see pr111291.

Marking as duplicate, assuming this is fine with you.

*** This bug has been marked as a duplicate of bug 111291 ***