public inbox for gcc-bugs@sourceware.org help / color / mirror / Atom feed
From: "dominiq at lps dot ens dot fr" <gcc-bugzilla@gcc.gnu.org> To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/42647] Missed initialization/dealloc of allocatable scalar DT with allocatable component Date: Thu, 02 Sep 2010 14:49:00 -0000 [thread overview] Message-ID: <20100902144905.15226.qmail@sourceware.org> (raw) In-Reply-To: <bug-42647-13404@http.gcc.gnu.org/bugzilla/> ------- Comment #10 from dominiq at lps dot ens dot fr 2010-09-02 14:49 ------- The tests in the different comments seem to pass since some time. The behavior of the derived test module m type st integer , allocatable :: c1 end type st type t1 type(st), allocatable :: b1 end type t1 end module m use m type(t1) :: a1, aa1(:) allocatable :: a1, aa1 if(allocated(a1)) call abort() if(allocated(aa1)) call abort() print *, 'now allocate' allocate(a1, a1%b1, a1%b1%c1) print *, allocated(a1), allocated(a1%b1), allocated(a1%b1%c1) a1%b1%c1 = 1 print *, a1%b1%c1 deallocate(a1%b1%c1) print *, allocated(a1), allocated(a1%b1), allocated(a1%b1%c1) deallocate(a1%b1) end has changed with r163744. Before one got [macbook] f90/bug% a.out now allocate Segmentation fault Now I get: [macbook] f90/bug% a.out now allocate T T T 1 T T F At line 25 of file pr42647_1_pass_1_red_1.f90 Fortran runtime error: Attempt to DEALLOCATE unallocated 'a1' -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42647
next prev parent reply other threads:[~2010-09-02 14:49 UTC|newest] Thread overview: 13+ messages / expand[flat|nested] mbox.gz Atom feed top 2010-01-07 16:04 [Bug fortran/42647] New: " burnus at gcc dot gnu dot org 2010-01-09 17:35 ` [Bug fortran/42647] " burnus at gcc dot gnu dot org 2010-01-09 21:29 ` burnus at gcc dot gnu dot org 2010-01-09 21:30 ` burnus at gcc dot gnu dot org 2010-01-10 15:37 ` dominiq at lps dot ens dot fr 2010-01-27 10:48 ` burnus at gcc dot gnu dot org 2010-05-15 21:25 ` dominiq at lps dot ens dot fr 2010-05-15 22:03 ` janus at gcc dot gnu dot org 2010-05-15 22:17 ` janus at gcc dot gnu dot org 2010-05-15 22:29 ` janus at gcc dot gnu dot org 2010-05-16 14:40 ` dominiq at lps dot ens dot fr 2010-09-02 14:49 ` dominiq at lps dot ens dot fr [this message] [not found] <bug-42647-4@http.gcc.gnu.org/bugzilla/> 2010-10-13 13:22 ` burnus at gcc dot gnu.org
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20100902144905.15226.qmail@sourceware.org \ --to=gcc-bugzilla@gcc.gnu.org \ --cc=gcc-bugs@gcc.gnu.org \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: linkBe sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).