[Bug fortran/20334] New: Dimensioned parameters get their dimensions lost.

[toon at moene dot indiv dot nluug dot nl]

This:

character(len=50), dimension(100), parameter :: regels = 'Schrijf dit honderd
keer uit.'
print '(a)', regels
end

should print one hundred lines of

Schrijf dit honderd keer uit.

Unfortunately, it only does it only once:

toon@book:~/g95-bugs$ /usr/snp/bin/gfortran -static -O2 strafwerk.f90
toon@book:~/g95-bugs$ ./a.out
Schrijf dit honderd keer uit.
toon@book:~/g95-bugs$ cat strafwerk.f90

It *does* work if you remove the 'parameter' part.

-- 
           Summary: Dimensioned parameters get their dimensions lost.
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: toon at moene dot indiv dot nluug dot nl
                CC: gcc-bugs at gcc dot gnu dot org


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