[Bug fortran/20856] New: error needed

[Bug fortran/20856] New: error needed

[jv244 at cam dot ac dot uk]

The following is non-standard and the compiler should probably generate a
warning/error with '-pedantic -std=f95'

FUNCTION X() RESULT(Y)
REAL, SAVE :: Y
END FUNCTION X
END

-- 
           Summary: error needed
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jv244 at cam dot ac dot uk
                CC: gcc-bugs at gcc dot gnu dot org
GCC target triplet: i686-pc-linux-gnu


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

[Bug fortran/20856] error needed

[fxcoudert at gcc dot gnu dot org]

------- Additional Comments From fxcoudert at gcc dot gnu dot org  2005-04-10 08:46 -------
I'm not sure what the error should be for that one. Is the problem the SAVE
attribute given to Y?

-- 


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

[Bug fortran/20856] function result may not be saved

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2005-04-22 14:30 -------
That's the problem.  I'm fairly sure Joost knows the problems for all these bugs ...

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |tobi at gcc dot gnu dot org
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
           Keywords|                            |accepts-invalid
   Last reconfirmed|0000-00-00 00:00:00         |2005-04-22 14:30:57
               date|                            |
            Summary|error needed                |function result may not be
                   |                            |saved


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

[Bug fortran/20856] function result may not be saved

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2005-09-30 17:10 -------
In fact we keep the value of Y still:
x ()
{
  real4 D.480;
  static real4 y;

  y = 1.0e+0;
  D.480 = y;
  return D.480;
}


-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
 GCC target triplet|i686-pc-linux-gnu           |
   Last reconfirmed|2005-07-22 19:55:27         |2005-09-30 17:10:24
               date|                            |


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