[Bug fortran/15957] New: Error in array assignments; 'shape'-related stuff

["Mart dot Rentmeester at sci dot kun dot nl" <gcc-bugzilla at gcc dot gnu dot org>]

The following piece of code doesn't compile: an error is 
detected. Yet all other compilers I use accept it.
I assume it is a gfortran bug



troogle> gfortran -v -c n5.f95 
Reading specs from /OPT/32/gcc-2004-06-09/lib/gcc/hppa2.0w-hp-hpux11.11/3.5.
0/specs
Configured with: ../configure --enable-languages=c,f95 
--prefix=/opt32/gcc-2004-06-09 --with-gmp=/opt32/gmp --with-gnu-as 
--with-as=/opt32/binutils/bin/as --enable-threads --disable-shared --disable-nls
Thread model: posix
gcc version 3.5.0 20040611 (experimental)
 /OPT/32/gcc-2004-06-09/libexec/gcc/hppa2.0w-hp-hpux11.11/3.5.0/f951 n5.f95 
-quiet -dumpbase n5.f95 -auxbase n5 -version -o /var/tmp//cc1BoJQW.s
GNU F95 version 3.5.0 20040611 (experimental) (hppa2.0w-hp-hpux11.11)
        compiled by GNU C version 3.5.0 20040611 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096


 In file n5.f95:6

      real, parameter      :: a2(2,0:2) = reshape ( (/  5.0, 8.0, -1.0,       &
                                      1
Error: Array assignment at (1) has different shape on dimension 1 (2/3)
 In file n5.f95:12

      a = a2
           1
Error: Symbol 'a2' at (1) has no IMPLICIT type





      subroutine num2in(m,a)

      implicit none
      integer, intent(in)  :: m
      real, intent(out)    :: a(m,0:m)
      real, parameter      :: a2(2,0:2) = reshape ( (/  5.0, 8.0, -1.0,       &
                                                       -1.0, 8.0,  5.0  /),   &
                                                     shape = (/2,3/),         &
                                                     order = (/2,1/)          &
                                                  ) / 12.0

      a = a2

      end subroutine num2in

-- 
           Summary: Error in array assignments; 'shape'-related stuff
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Mart dot Rentmeester at sci dot kun dot nl
                CC: gcc-bugs at gcc dot gnu dot org


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