[Bug fortran/13467] New: Array parameters do not have storage

[schnetter at aei dot mpg dot de]

The enclosed piece of code compiles but does not link: 
 
module x 
  REAL*8, parameter :: delta3(3,3) & 
       = reshape((/ 1,0,0,   0,1,0,   0,0,1 /), (/3,3/)) 
end module x 
program y 
  use x 
  print *,delta3 
end program y 
 
The error message is 
 
$ ~/gcc-3.5-tree-ssa/bin/gfortran -Wall -g -o modparam modparam.f90 
/tmp/ccVotgUX.o(.text+0x34): In function `MAIN__': 
/home/eschnett/f/modparam.f90:9: undefined reference to `__x__delta3' 
collect2: ld returned 1 exit status 
 
This is with 
 
$ gcc --version 
gcc (GCC) 3.3.3 20031206 (prerelease) (Debian) 
 
from the snapshot tree-ssa-20031222.tar.bz2.

-- 
           Summary: Array parameters do not have storage
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: schnetter at aei dot mpg dot de
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-pc-linux-gnu
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: i686-pc-linux-gnu


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