[Bug fortran/47846] New: Deferred-string length: Length is wrong

[Bug fortran/47846] New: Deferred-string length: Length is wrong

[burnus at gcc dot gnu.org]

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

           Summary: Deferred-string length: Length is wrong
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org
                CC: pault@gcc.gnu.org


The test case allocate_deferred_char_scalar_1.f03 fails if one applies the
following patch. It abort in line 178:
    if(len(a) /= 50) call abort()

On my system "len(a)" is 0


--- a/gcc/testsuite/gfortran.dg/allocate_deferred_char_scalar_1.f03
+++ b/gcc/testsuite/gfortran.dg/allocate_deferred_char_scalar_1.f03
@@ -1,4 +1,4 @@
-! { dg-do run}
+! { dg-do run }
 !
 ! Automatic reallocate on assignment, deferred length parameter for char
 !

[Bug fortran/47846] Deferred-string length: Length is wrong

[paul.richard.thomas at gmail dot com]

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

--- Comment #1 from paul.richard.thomas at gmail dot com <paul.richard.thomas at gmail dot com> 2011-02-22 10:09:57 UTC ---
Jerry,

You are not the only one :-)

Tobias, I'll take a look-see tonight.

Cheers

Paul

On Tue, Feb 22, 2011 at 10:31 AM, burnus at gcc dot gnu.org
<gcc-bugzilla@gcc.gnu.org> wrote:
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47846
>
>           Summary: Deferred-string length: Length is wrong
>           Product: gcc
>           Version: 4.6.0
>            Status: UNCONFIRMED
>          Keywords: wrong-code
>          Severity: normal
>          Priority: P3
>         Component: fortran
>        AssignedTo: unassigned@gcc.gnu.org
>        ReportedBy: burnus@gcc.gnu.org
>                CC: pault@gcc.gnu.org
>
>
> The test case allocate_deferred_char_scalar_1.f03 fails if one applies the
> following patch. It abort in line 178:
>    if(len(a) /= 50) call abort()
>
> On my system "len(a)" is 0
>
>
> --- a/gcc/testsuite/gfortran.dg/allocate_deferred_char_scalar_1.f03
> +++ b/gcc/testsuite/gfortran.dg/allocate_deferred_char_scalar_1.f03
> @@ -1,4 +1,4 @@
> -! { dg-do run}
> +! { dg-do run }
>  !
>  ! Automatic reallocate on assignment, deferred length parameter for char
>  !
>
> --
> Configure bugmail: http://gcc.gnu.org/bugzilla/userprefs.cgi?tab=email
> ------- You are receiving this mail because: -------
> You are on the CC list for the bug.
>

[Bug fortran/47846] Deferred-string length: Length is wrong (gfortran.dg/allocate_deferred_char_scalar_1.f03)

[ubizjak at gmail dot com]

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

Uros Bizjak <ubizjak at gmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2011.02.23 16:56:47
     Ever Confirmed|0                           |1

--- Comment #2 from Uros Bizjak <ubizjak at gmail dot com> 2011-02-23 16:56:47 UTC ---
The patch from comment 0 was applied at r170438, so the test now fails at
runtime.

Confirmed.

[1] http://gcc.gnu.org/ml/gcc-cvs/2011-02/msg00984.html

[Bug fortran/47846] Deferred-string length: Length is wrong (gfortran.dg/allocate_deferred_char_scalar_1.f03)

[dominiq at lps dot ens.fr]

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

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-02-23 18:51:53 UTC ---
See pr47863.

[Bug fortran/47846] Deferred-string length: Length is wrong (gfortran.dg/allocate_deferred_char_scalar_1.f03)

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |hjl.tools at gmail dot com

--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-23 19:45:40 UTC ---
*** Bug 47863 has been marked as a duplicate of this bug. ***

[Bug fortran/47846] Deferred-string length: Length is wrong (gfortran.dg/allocate_deferred_char_scalar_1.f03)

[burnus at gcc dot gnu.org]

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

--- Comment #5 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-27 14:12:35 UTC ---
Author: burnus
Date: Sun Feb 27 14:12:31 2011
New Revision: 170539

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=170539
Log:
2011-02-27  Tobias Burnus  <burnus@net-b.de>

        PR fortran/47846
        * trans-stmt.c (gfc_trans_allocate): Fix allocation with
        type-spec of deferred-length strings.


Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-stmt.c

[Bug fortran/47846] Deferred-string length: Length is wrong (gfortran.dg/allocate_deferred_char_scalar_1.f03)

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
         Resolution|                            |FIXED

--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> 2011-02-27 14:13:39 UTC ---
FIXED on the 4.6 trunk.