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: unassig...@gcc.gnu.org
ReportedBy: tkoe...@gcc.gnu.org
CC: pa...@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.
