[Bug fortran/37400] New: [4.4 Regression] implicit character(len=*,kind=kind('A')) (Q) ... no longer gives the right answer.

[dominiq at lps dot ens dot fr]

Extracted form
http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/c553e0034bab977c
(see pr34199) the following code:

module mod 
   implicit character(len=*,kind=kind('A')) (Q) 
   parameter(Q1 = 'Test Me!') 
   parameter(Q2 = 'Test Me Too!') 
   contains 
      subroutine sub(Q3) 
         write(*,*) '#'//Q3//'#' 
      end subroutine sub 
end module mod 
program startest 
   use mod 
   implicit none 
   write(*,*) '#'//Q1//'#' 
   write(*,*) '#'//Q2//'#' 
   call sub('Test Me More!') 
end program startest 

when compiled with gfortran 4.3.2, gives the expected (by me) output:

 #Test Me!#
 #Test Me Too!#
 #Test Me More!#

while when compiled with gfortran 4.4.0, it gives:

 #Test Me!#
 #Test Me #
 #Test Me #


-- 
           Summary: [4.4 Regression] implicit
                    character(len=*,kind=kind('A')) (Q) ... no longer gives
                    the right answer.
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dominiq at lps dot ens dot fr


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