public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/17678] New: USE statement incorrectly initializes allocatable array
@ 2004-09-26 13:58 lei at il dot ibm dot com
2004-09-26 14:15 ` [Bug fortran/17678] " pinskia at gcc dot gnu dot org
` (4 more replies)
0 siblings, 5 replies; 6+ messages in thread
From: lei at il dot ibm dot com @ 2004-09-26 13:58 UTC (permalink / raw)
To: gcc-bugs
% gfortran --static test.f90
% a.out
oops
Abort (core dumped)
% cat test.f90
module foo
integer, dimension(:), allocatable :: bar
end module
program main
use foo
allocate (bar(100))
call init
end program main
subroutine init
use foo
if (.not.allocated(bar)) then
print *, 'oops'
call abort
endif
end subroutine init
=====================================
And here is the dump-tree-original, which clearly shows the problem:
init ()
{
extern struct array1_int4 bar;
bar.data = 0B; <<<<<<<<<<<<<<<<< ALLOCATION IS LOST HERE
if (bar.data != 0B == 0)
{
_gfortran_filename = "test.f90";
_gfortran_line = 14;
_gfortran_ioparm.unit = 6;
_gfortran_ioparm.list_format = 1;
_gfortran_st_write ();
_gfortran_transfer_character ("oops", 4);
_gfortran_st_write_done ();
_gfortran_abort ();
}
--
Summary: USE statement incorrectly initializes allocatable array
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: lei at il dot ibm dot com
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17678
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/17678] USE statement incorrectly initializes allocatable array
2004-09-26 13:58 [Bug fortran/17678] New: USE statement incorrectly initializes allocatable array lei at il dot ibm dot com
@ 2004-09-26 14:15 ` pinskia at gcc dot gnu dot org
2004-09-27 19:25 ` tobi at gcc dot gnu dot org
` (3 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-09-26 14:15 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-09-26 14:15 -------
Confirmed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2004-09-26 14:15:22
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17678
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/17678] USE statement incorrectly initializes allocatable array
2004-09-26 13:58 [Bug fortran/17678] New: USE statement incorrectly initializes allocatable array lei at il dot ibm dot com
2004-09-26 14:15 ` [Bug fortran/17678] " pinskia at gcc dot gnu dot org
@ 2004-09-27 19:25 ` tobi at gcc dot gnu dot org
2004-09-28 16:01 ` tobi at gcc dot gnu dot org
` (2 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: tobi at gcc dot gnu dot org @ 2004-09-27 19:25 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From tobi at gcc dot gnu dot org 2004-09-27 19:25 -------
The patch also passes the testsuite with no regressions.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17678
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/17678] USE statement incorrectly initializes allocatable array
2004-09-26 13:58 [Bug fortran/17678] New: USE statement incorrectly initializes allocatable array lei at il dot ibm dot com
2004-09-26 14:15 ` [Bug fortran/17678] " pinskia at gcc dot gnu dot org
2004-09-27 19:25 ` tobi at gcc dot gnu dot org
@ 2004-09-28 16:01 ` tobi at gcc dot gnu dot org
2004-10-07 0:43 ` cvs-commit at gcc dot gnu dot org
2004-10-07 1:02 ` pinskia at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: tobi at gcc dot gnu dot org @ 2004-09-28 16:01 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From tobi at gcc dot gnu dot org 2004-09-28 16:01 -------
This bug doesn't affect host associated variables. E.g.
program main
integer, dimension(:), allocatable :: bar
allocate (bar(100))
call init
contains
subroutine init
if (.not.allocated(bar)) then
print *, 'oops'
call abort
endif
end subroutine init
end program main
works as expected
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17678
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/17678] USE statement incorrectly initializes allocatable array
2004-09-26 13:58 [Bug fortran/17678] New: USE statement incorrectly initializes allocatable array lei at il dot ibm dot com
` (2 preceding siblings ...)
2004-09-28 16:01 ` tobi at gcc dot gnu dot org
@ 2004-10-07 0:43 ` cvs-commit at gcc dot gnu dot org
2004-10-07 1:02 ` pinskia at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2004-10-07 0:43 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2004-10-07 00:43 -------
Subject: Bug 17678
CVSROOT: /cvs/gcc
Module name: gcc
Changes by: pbrook@gcc.gnu.org 2004-10-07 00:43:21
Modified files:
gcc/fortran : ChangeLog trans-array.c
gcc/testsuite : ChangeLog
Added files:
gcc/testsuite/gfortran.dg: use_allocated_1.f90
Log message:
PR fortran/17678
* trans-array.c (gfc_trans_deferred_array): Leave use associated
variables alone.
testsuite/
* gfortran.dg/use_allocated_1.f90: New test.
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.229&r2=1.230
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-array.c.diff?cvsroot=gcc&r1=1.28&r2=1.29
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.4398&r2=1.4399
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/use_allocated_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17678
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug fortran/17678] USE statement incorrectly initializes allocatable array
2004-09-26 13:58 [Bug fortran/17678] New: USE statement incorrectly initializes allocatable array lei at il dot ibm dot com
` (3 preceding siblings ...)
2004-10-07 0:43 ` cvs-commit at gcc dot gnu dot org
@ 2004-10-07 1:02 ` pinskia at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-10-07 1:02 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-10-07 01:02 -------
Fixed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
Resolution| |FIXED
Target Milestone|--- |4.0.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17678
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2004-10-07 1:02 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-09-26 13:58 [Bug fortran/17678] New: USE statement incorrectly initializes allocatable array lei at il dot ibm dot com
2004-09-26 14:15 ` [Bug fortran/17678] " pinskia at gcc dot gnu dot org
2004-09-27 19:25 ` tobi at gcc dot gnu dot org
2004-09-28 16:01 ` tobi at gcc dot gnu dot org
2004-10-07 0:43 ` cvs-commit at gcc dot gnu dot org
2004-10-07 1:02 ` pinskia at gcc dot gnu dot org
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).