[Bug fortran/13773] New: Incorrect diagnosis of restricted function

[Bug fortran/13773] New: Incorrect diagnosis of restricted function

[tow21 at cam dot ac dot uk]

The following code: 
  Integer Function mycount( inarray ) 
 
    Implicit None 
 
    Integer, Dimension(5) :: inarray 
    Integer, Dimension(Sum(inarray)) :: tt 
 
    mycount = 1 
 
  End Function mycount 
 
gives the error 
parabrisas% g95 tt.f90  
 In file tt.f90:6 
 
    Integer, Dimension(Sum(inarray)) :: tt 
                      1 
Error: Intrinsic function 'sum' at (1) is not a restricted function 
 
By my reading of s7.1.6.2 (and Intel's and Lahey's) this is, however, a 
restricted expression and should be allowed.

-- 
           Summary: Incorrect diagnosis of restricted function
           Product: gcc
           Version: tree-ssa
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tow21 at cam dot ac dot uk
                CC: gcc-bugs at gcc dot gnu dot org


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

[Bug fortran/13773] [gfortran] Incorrect diagnosis of restricted function

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid
            Summary|Incorrect diagnosis of      |[gfortran] Incorrect
                   |restricted function         |diagnosis of restricted
                   |                            |function
   Target Milestone|---                         |tree-ssa


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

[Bug fortran/13773] [gfortran] Incorrect diagnosis of restricted function

[dhazeghi at yahoo dot com]

------- Additional Comments From dhazeghi at yahoo dot com  2004-01-21 17:16 -------
Confirmed error message with current tree-ssa.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-01-21 17:16:19
               date|                            |


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

[Bug fortran/13773] [gfortran] Incorrect diagnosis of restricted function

[pbrook at gcc dot gnu dot org]

------- Additional Comments From pbrook at gcc dot gnu dot org  2004-05-23 16:11 -------
Fixed. 

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


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

[Bug fortran/13773] [gfortran] Incorrect diagnosis of restricted function

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-05-23 16:08 -------
Subject: Bug 13773

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	pbrook@gcc.gnu.org	2004-05-23 16:07:44

Modified files:
	gcc/fortran    : ChangeLog expr.c 

Log message:
	PR fortran/13773
	* expr.c (restricted_args): Remove redundant checks/argument.
	(external_spec_function): Update to match.
	(restricted_intrinsic): Rewrite.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.44&r2=1.45
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/expr.c.diff?cvsroot=gcc&r1=1.4&r2=1.5



-- 


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