[Bug fortran/39864] New: INTRINSIC :: RESHAPE causes spurious error

[michael dot a dot richmond at nasa dot gov]

When I attempt to compile the following function using
http://users.physik.fu-berlin.de/~tburnus/gcc-trunk/gcc-trunk-x86_64.tar.gz

FUNCTION next_state()
INTRINSIC :: RESHAPE
INTEGER, PARAMETER :: trantb(1,1) = RESHAPE((/1,2/), shape=(/1,1/))
next_state = trantb(1, 1)
END FUNCTION next_state

I get the message:

test161.f90:3.67:

INTEGER, PARAMETER :: trantb(1,1) = RESHAPE((/1,2/), shape=(/1,1/))
                                                                   1
Error: Symbol at (1) is not a DUMMY variable
test161.f90:3.67:

INTEGER, PARAMETER :: trantb(1,1) = RESHAPE((/1,2/), shape=(/1,1/))
                                                                   1
Error: Symbol at (1) is not a DUMMY variable

The problem goes away if I remove "INTRINSIC :: RESHAPE"


-- 
           Summary: INTRINSIC :: RESHAPE causes spurious error
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: michael dot a dot richmond at nasa dot gov
 GCC build triplet: x86_64-unknown-linux-gnu
  GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu


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