https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65045
Thomas Koenig <tkoenig at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Last reconfirmed|2015-02-13 00:00:00 |2016-8-9
--- Comment #12 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Test case from comment#1 still fails:
ig25@linux-fd1f:/tmp> valgrind ~/Gcc/5-bin/gcc/f951 -std=f95 a.f90
==13447== Memcheck, a memory error detector
==13447== Copyright (C) 2002-2013, and GNU GPL'd, by Julian Seward et al.
==13447== Using Valgrind-3.10.0 and LibVEX; rerun with -h for copyright info
==13447== Command: /home/ig25/Gcc/5-bin/gcc/f951 -std=f95 a.f90
==13447==
a.f90:2:7:
i:block
1
Error: Fortran 2008: BLOCK construct at (1)
a.f90:3:6:
if (i>7.7) then
1
Error: Symbol at (1) is not appropriate for an expression
a.f90:4:11:
exit i
1
Error: Fortran 2008: EXIT statement with no do-construct-name at (1)
a.f90:5:6:
end if
1
Error: Expecting END BLOCK statement at (1)
==13447== Invalid read of size 8
==13447== at 0x67981A: next_statement() (parse.c:1328)
==13447== by 0x67C17F: parse_executable(gfc_statement) (parse.c:4730)
==13447== by 0x67D116: parse_progunit(gfc_statement) (parse.c:5113)
==13447== by 0x67E1D5: gfc_parse_file() (parse.c:5604)
==13447== by 0x6BDDC5: gfc_be_parse_file() (f95-lang.c:229)
==13447== by 0xA7C2A1: compile_file() (toplev.c:594)
==13447== by 0x6005B3: do_compile (toplev.c:2067)
==13447== by 0x6005B3: toplev::main(int, char**) (toplev.c:2165)
==13447== by 0x6012A9: main (main.c:39)
==13447== Address 0x958 is not stack'd, malloc'd or (recently) free'd
==13447==
(null):0: confused by earlier errors, bailing out
