[Bug fortran/47523] New: Wrong length in I/O deferred allocatable scalar character

["tkoenig at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

           Summary: Wrong length in I/O deferred allocatable scalar
                    character
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: tkoenig@gcc.gnu.org
                CC: pault@gcc.gnu.org


Hi Paul,

sorry to be the first one to find a bug in your really cool
deferred length allocatable scalars.

Test case:

ig25@linux-fd1f:~/Krempel/Char-alloc> cat foo.f90
program main
  implicit none
  character(:), allocatable :: a, b
  a = 'a'
  print '(A)', a
  a = a // 'x'
  print '(A,A)',a
  print *,len(a)
end program main
ig25@linux-fd1f:~/Krempel/Char-alloc> gfortran foo.f90
ig25@linux-fd1f:~/Krempel/Char-alloc> ./a.out
a
a
           2

Output should be

a
ax
           2

The last line shows the length is correct, maybe it's just the
interaction with the library.  I will investigate a bit more.