public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/31803]  New: ICE when for character  pointer => target(range)
@ 2007-05-03 18:39 burnus at gcc dot gnu dot org
  2007-05-03 18:43 ` [Bug fortran/31803] " burnus at gcc dot gnu dot org
                   ` (4 more replies)
  0 siblings, 5 replies; 6+ messages in thread
From: burnus at gcc dot gnu dot org @ 2007-05-03 18:39 UTC (permalink / raw)
  To: gcc-bugs

character (len = 70), target :: textt
  character (len = 70), pointer :: textp
  character (len = 50), pointer :: textp2

  a = 42
  textp => textt
  textp2 => textt(1:50)
end


-- 
           Summary: ICE when for character  pointer => target(range)
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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


^ permalink raw reply	[flat|nested] 6+ messages in thread

* [Bug fortran/31803] ICE when for character  pointer => target(range)
  2007-05-03 18:39 [Bug fortran/31803] New: ICE when for character pointer => target(range) burnus at gcc dot gnu dot org
@ 2007-05-03 18:43 ` burnus at gcc dot gnu dot org
  2007-05-04  7:57 ` [Bug fortran/31803] ICE " burnus at gcc dot gnu dot org
                   ` (3 subsequent siblings)
  4 siblings, 0 replies; 6+ messages in thread
From: burnus at gcc dot gnu dot org @ 2007-05-03 18:43 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #1 from burnus at gcc dot gnu dot org  2007-05-03 19:43 -------
==11966== Invalid read of size 8
==11966==    at 0x41BF0C: gfc_check_pointer_assign (expr.c:2555)
==11966==    by 0x4519D0: resolve_code (resolve.c:5225)
==11966==    by 0x452D3D: resolve_codes (resolve.c:7386)

Better test case:
-------------------
  character (len = 7), target :: textt
  character (len = 7), pointer :: textp
  character (len = 5), pointer :: textp2
  textp => textt
  textp2 => textt(1:5)
  if(len(textp)  /= 7) call abort()
  if(len(textp2) /= 5) call abort()
  textp  = 'aaaaaaa'
  textp2 = 'bbbbbbb'
  if(textp  /= 'bbbbbaa') call abort()
  if(textp2 /= 'bbbbb') call abort()
end


-- 


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


^ permalink raw reply	[flat|nested] 6+ messages in thread

* [Bug fortran/31803] ICE for character  pointer => target(range)
  2007-05-03 18:39 [Bug fortran/31803] New: ICE when for character pointer => target(range) burnus at gcc dot gnu dot org
  2007-05-03 18:43 ` [Bug fortran/31803] " burnus at gcc dot gnu dot org
@ 2007-05-04  7:57 ` burnus at gcc dot gnu dot org
  2007-05-04 13:40 ` burnus at gcc dot gnu dot org
                   ` (2 subsequent siblings)
  4 siblings, 0 replies; 6+ messages in thread
From: burnus at gcc dot gnu dot org @ 2007-05-04  7:57 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #2 from burnus at gcc dot gnu dot org  2007-05-04 08:57 -------
Note: Please uncomment also the two marked lines in
gcc/testsuite/gfortran.dg/char_result_2.f90 when you fix this PR.

http://gcc.gnu.org/viewcvs/trunk/gcc/testsuite/gfortran.dg/char_result_2.f90?r1=124411&r2=124410&pathrev=124411


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|ICE when for character      |ICE for character  pointer
                   |pointer => target(range)    |=> target(range)


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


^ permalink raw reply	[flat|nested] 6+ messages in thread

* [Bug fortran/31803] ICE for character  pointer => target(range)
  2007-05-03 18:39 [Bug fortran/31803] New: ICE when for character pointer => target(range) burnus at gcc dot gnu dot org
  2007-05-03 18:43 ` [Bug fortran/31803] " burnus at gcc dot gnu dot org
  2007-05-04  7:57 ` [Bug fortran/31803] ICE " burnus at gcc dot gnu dot org
@ 2007-05-04 13:40 ` burnus at gcc dot gnu dot org
  2007-05-04 13:46 ` burnus at gcc dot gnu dot org
  2007-05-05  0:06 ` patchapp at dberlin dot org
  4 siblings, 0 replies; 6+ messages in thread
From: burnus at gcc dot gnu dot org @ 2007-05-04 13:40 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #3 from burnus at gcc dot gnu dot org  2007-05-04 14:40 -------
Subject: Bug 31803

Author: burnus
Date: Fri May  4 13:40:32 2007
New Revision: 124419

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=124419
Log:
2007-05-04  Tobias Burnus  <burnus@net-b.de>

        PR fortran/31803
        * expr.c (gfc_check_pointer_assign): Check for NULL pointer.

2007-05-04  Tobias Burnus  <burnus@net-b.de>

        PR fortran/31803
        * gfortran.dg/char_pointer_assign_3.f90: New test.
        * gfortran.dg/char_result_2.f90: Re-enable test.


Added:
    trunk/gcc/testsuite/gfortran.dg/char_pointer_assign_3.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/expr.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/char_result_2.f90


-- 


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


^ permalink raw reply	[flat|nested] 6+ messages in thread

* [Bug fortran/31803] ICE for character  pointer => target(range)
  2007-05-03 18:39 [Bug fortran/31803] New: ICE when for character pointer => target(range) burnus at gcc dot gnu dot org
                   ` (2 preceding siblings ...)
  2007-05-04 13:40 ` burnus at gcc dot gnu dot org
@ 2007-05-04 13:46 ` burnus at gcc dot gnu dot org
  2007-05-05  0:06 ` patchapp at dberlin dot org
  4 siblings, 0 replies; 6+ messages in thread
From: burnus at gcc dot gnu dot org @ 2007-05-04 13:46 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #4 from burnus at gcc dot gnu dot org  2007-05-04 14:46 -------
Fixed in 4.3. Not for 4.2.0. If someone has strong feelings about 4.2.1, please
reopen.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
      Known to fail|                            |4.3.0 4.2.0 4.1.2
         Resolution|                            |FIXED
   Target Milestone|---                         |4.3.0


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


^ permalink raw reply	[flat|nested] 6+ messages in thread

* [Bug fortran/31803] ICE for character  pointer => target(range)
  2007-05-03 18:39 [Bug fortran/31803] New: ICE when for character pointer => target(range) burnus at gcc dot gnu dot org
                   ` (3 preceding siblings ...)
  2007-05-04 13:46 ` burnus at gcc dot gnu dot org
@ 2007-05-05  0:06 ` patchapp at dberlin dot org
  4 siblings, 0 replies; 6+ messages in thread
From: patchapp at dberlin dot org @ 2007-05-05  0:06 UTC (permalink / raw)
  To: gcc-bugs



------- Comment #5 from patchapp at dberlin dot org  2007-05-05 01:06 -------
Subject: Bug number PR31803

A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2007-05/msg00237.html


-- 


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


^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2007-05-05  0:06 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-05-03 18:39 [Bug fortran/31803] New: ICE when for character pointer => target(range) burnus at gcc dot gnu dot org
2007-05-03 18:43 ` [Bug fortran/31803] " burnus at gcc dot gnu dot org
2007-05-04  7:57 ` [Bug fortran/31803] ICE " burnus at gcc dot gnu dot org
2007-05-04 13:40 ` burnus at gcc dot gnu dot org
2007-05-04 13:46 ` burnus at gcc dot gnu dot org
2007-05-05  0:06 ` patchapp at dberlin 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).