public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/13415] New: Internal error in gfortran
@ 2003-12-16 18:01 gcc-bugzilla at gcc dot gnu dot org
  2003-12-16 22:53 ` [Bug fortran/13415] [gfortran] " pinskia at gcc dot gnu dot org
                   ` (4 more replies)
  0 siblings, 5 replies; 6+ messages in thread
From: gcc-bugzilla at gcc dot gnu dot org @ 2003-12-16 18:01 UTC (permalink / raw)
  To: gcc-bugs


I believe the following commit on the tree-ssa branch is either the
direct cause of the below problem or it uncovered a hidden bug.

2003-12-05  Richard Henderson  <rth@redhat.com>

        * trans.c (gfc_build_addr_expr): New.
        (gfc_build_indirect_ref, gfc_build_array_ref): New.
        * trans.h: Declare them.
        * trans-array.c, trans-expr.c, trans-intrinsic.c, trans-io.c,
        trans-stmt.c, trans.c (*): Use them.

        * f95-lang.c (gfc_post_options): Remove dead prototype.
        * trans-array.c (gfc_trans_deferred_vars): Remove unused variable.
        * trans-stmt.c (gfc_evaluate_where_mask): Fix temporary_list
        allocation size.

kargl[207] ../../../bin/gfortran b.f90
 In file b.f90:14

      end program test
                     1
 Internal Error at (1):
 calculate_length(): Unable to determine array size

Environment:
System: FreeBSD 12-230-81-20.client.attbi.com 5.2-CURRENT FreeBSD 5.2-CURRENT #2: Sun Dec 14 15:18:04 PST 2003 kargl@12-230-81-20.client.attbi.com:/usr/local/obj/usr/src/sys/HOTRATS i386


	
host: i386-unknown-freebsd5.2
build: i386-unknown-freebsd5.2
target: i386-unknown-freebsd5.2
configured with: ../gcc/configure --prefix=/usr/home/kargl/gcc-ssa/work --disable-libmudflap --enable-languages=c,f95 --with-gmp=/usr/local

How-To-Repeat:

kargl[207] ../../../bin/gfortran b.f90
 In file b.f90:14

      end program test
                     1
 Internal Error at (1):
 calculate_length(): Unable to determine array size


      program test
      real, allocatable, target, dimension(:) :: array1, array2
      real, pointer, dimension(:) :: parray
      common /mydata/ parray,q
      q=99.0
      allocate(array1(10))
      allocate(array2(20))
      array1=1.
      array2=2.
      parray => array1
      call sub(10)
      parray => array2
      call sub(20)
      end program test
      subroutine sub(n)
      integer n
      real, pointer, dimension(:) :: parray
      common /mydata/ parray,q
      print *,parray(1),parray(n),q
      return
      end subroutine sub

-- 
           Summary: Internal error in gfortran
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: critical
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: kargl at 12-230-81-20 dot client dot attbi dot com
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i386-unknown-freebsd5.2
  GCC host triplet: i386-unknown-freebsd5.2
GCC target triplet: i386-unknown-freebsd5.2


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13415


^ permalink raw reply	[flat|nested] 6+ messages in thread
* [Bug fortran/13415] [gfortran] Internal error in gfortran
  2003-12-16 18:01 [Bug fortran/13415] New: Internal error in gfortran gcc-bugzilla at gcc dot gnu dot org
@ 2003-12-16 22:53 ` pinskia at gcc dot gnu dot org
  2004-05-14 19:35 ` 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 @ 2003-12-16 22:53 UTC (permalink / raw)
  To: gcc-bugs


------- Additional Comments From pinskia at gcc dot gnu dot org  2003-12-16 22:42 -------
Confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Severity|critical                    |normal
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |ice-on-valid-code
   Last reconfirmed|0000-00-00 00:00:00         |2003-12-16 22:42:35
               date|                            |
            Summary|Internal error in gfortran  |[gfortran] Internal error in
                   |                            |gfortran
   Target Milestone|---                         |tree-ssa
            Version|unknown                     |tree-ssa


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13415


^ permalink raw reply	[flat|nested] 6+ messages in thread
* [Bug fortran/13415] [gfortran] Internal error in gfortran
  2003-12-16 18:01 [Bug fortran/13415] New: Internal error in gfortran gcc-bugzilla at gcc dot gnu dot org
  2003-12-16 22:53 ` [Bug fortran/13415] [gfortran] " pinskia at gcc dot gnu dot org
@ 2004-05-14 19:35 ` tobi at gcc dot gnu dot org
  2004-05-26 12:31 ` pinskia 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-05-14 19:35 UTC (permalink / raw)
  To: gcc-bugs


------- Additional Comments From tobi at gcc dot gnu dot org  2004-05-14 14:46 -------
Reduced testcase:
      real, pointer, dimension(:) :: parray
      common /mydata/ parray
      end
This seems to be valid code. Interestingly, if parray were ALLOCATABLE instead
of POINTER, this would not be valid.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |tobi at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13415


^ permalink raw reply	[flat|nested] 6+ messages in thread
* [Bug fortran/13415] [gfortran] Internal error in gfortran
  2003-12-16 18:01 [Bug fortran/13415] New: Internal error in gfortran gcc-bugzilla at gcc dot gnu dot org
  2003-12-16 22:53 ` [Bug fortran/13415] [gfortran] " pinskia at gcc dot gnu dot org
  2004-05-14 19:35 ` tobi at gcc dot gnu dot org
@ 2004-05-26 12:31 ` pinskia at gcc dot gnu dot org
  2004-07-10  2:47 ` [Bug fortran/13415] Internal error with pointer array in common cvs-commit at gcc dot gnu dot org
  2004-07-10  2:53 ` pbrook at gcc dot gnu dot org
  4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-05-26 12:31 UTC (permalink / raw)
  To: gcc-bugs



-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|3.5.0                       |---


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13415


^ permalink raw reply	[flat|nested] 6+ messages in thread
* [Bug fortran/13415] Internal error with pointer array in common
  2003-12-16 18:01 [Bug fortran/13415] New: Internal error in gfortran gcc-bugzilla at gcc dot gnu dot org
                   ` (2 preceding siblings ...)
  2004-05-26 12:31 ` pinskia at gcc dot gnu dot org
@ 2004-07-10  2:47 ` cvs-commit at gcc dot gnu dot org
  2004-07-10  2:53 ` pbrook at gcc dot gnu dot org
  4 siblings, 0 replies; 6+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2004-07-10  2:47 UTC (permalink / raw)
  To: gcc-bugs


------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-07-10 02:46 -------
Subject: Bug 13415

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	pbrook@gcc.gnu.org	2004-07-10 02:46:54

Modified files:
	gcc/fortran    : ChangeLog trans-common.c trans-types.c 
	gcc/testsuite  : ChangeLog 
Added files:
	gcc/testsuite/gfortran.dg: common_pointer_1.f90 

Log message:
	PR fortran/13415
	* trans-common.c (calculate_length): Remove ...
	(get_segment_info): Merge into here.  Save field type.
	(build_field): Use saved type.
	(create_common, new_condition, new_segment, finish_equivalences):
	Use new get_segment_info.
	* trans-types.c: Update comment.
	testsuite
	* gfortran.dg/common_pointer_1.f90: New test.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.106&r2=1.107
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-common.c.diff?cvsroot=gcc&r1=1.9&r2=1.10
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-types.c.diff?cvsroot=gcc&r1=1.5&r2=1.6
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.3975&r2=1.3976
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/common_pointer_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1



-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13415


^ permalink raw reply	[flat|nested] 6+ messages in thread
* [Bug fortran/13415] Internal error with pointer array in common
  2003-12-16 18:01 [Bug fortran/13415] New: Internal error in gfortran gcc-bugzilla at gcc dot gnu dot org
                   ` (3 preceding siblings ...)
  2004-07-10  2:47 ` [Bug fortran/13415] Internal error with pointer array in common cvs-commit at gcc dot gnu dot org
@ 2004-07-10  2:53 ` pbrook at gcc dot gnu dot org
  4 siblings, 0 replies; 6+ messages in thread
From: pbrook at gcc dot gnu dot org @ 2004-07-10  2:53 UTC (permalink / raw)
  To: gcc-bugs


------- Additional Comments From pbrook at gcc dot gnu dot org  2004-07-10 02:53 -------
Fixed. 

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |3.5.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=13415


^ permalink raw reply	[flat|nested] 6+ messages in thread
end of thread, other threads:[~2004-07-10  2:53 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2003-12-16 18:01 [Bug fortran/13415] New: Internal error in gfortran gcc-bugzilla at gcc dot gnu dot org
2003-12-16 22:53 ` [Bug fortran/13415] [gfortran] " pinskia at gcc dot gnu dot org
2004-05-14 19:35 ` tobi at gcc dot gnu dot org
2004-05-26 12:31 ` pinskia at gcc dot gnu dot org
2004-07-10  2:47 ` [Bug fortran/13415] Internal error with pointer array in common cvs-commit at gcc dot gnu dot org
2004-07-10  2:53 ` pbrook 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).