[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
 !