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

[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

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

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2009-04-23 12:49 -------
Janus, can you have a look? It looks like another fallout of your patch. If it
is not fixable quickly, we should consider backing it out until we have a
working version.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |janus at gcc dot gnu dot org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
  GCC build triplet|x86_64-unknown-linux-gnu    |
   GCC host triplet|x86_64-unknown-linux-gnu    |
 GCC target triplet|x86_64-unknown-linux-gnu    |
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2009-04-23 12:49:54
               date|                            |
            Summary|INTRINSIC :: RESHAPE causes |[4.5 Regression] INTRINSIC
                   |spurious error              |:: RESHAPE causes spurious
                   |                            |error
   Target Milestone|---                         |4.5.0


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

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

[janus at gcc dot gnu dot org]

------- Comment #2 from janus at gcc dot gnu dot org  2009-04-23 20:21 -------

> Janus, can you have a look? It looks like another fallout of your patch.

Indeed, it is.


> If it is not fixable quickly, we should consider backing it out 
> until we have a working version.

The fix is quite trivial, I'll post a patch for this and PR39861 in a minute.
I really wonder why these things have not been caught by the testsuite.


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2009-04-23 12:49:54         |2009-04-23 20:21:17
               date|                            |


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

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

[janus at gcc dot gnu dot org]

------- Comment #3 from janus at gcc dot gnu dot org  2009-04-24 08:34 -------
Subject: Bug 39864

Author: janus
Date: Fri Apr 24 08:34:14 2009
New Revision: 146677

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=146677
Log:
2009-04-24  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/39861
        PR fortran/39864
        * symbol.c (gfc_copy_formal_args_intr): Set attr.flavor and attr.dummy
        for the formal arguments.


2009-04-24  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/39861
        PR fortran/39864
        * gfortran.dg/intrinsic_1.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/intrinsic_1.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/symbol.c
    trunk/gcc/testsuite/ChangeLog


-- 


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

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

[janus at gcc dot gnu dot org]

------- Comment #4 from janus at gcc dot gnu dot org  2009-04-24 08:39 -------
Fixed by r146677. Closing.


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED


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