[Bug fortran/16400] New: Invalid usage of assumed-size arrays is not rejected

[Bug fortran/16400] New: Invalid usage of assumed-size arrays is not rejected

[lei at il dot ibm dot com]

The following code should trigger an error message (currently
accepted).

subroutine foo(s)
  integer s(*)
  s = 1 
  print*, s
end

The 2003 Standard says in 5.1.2.5.4: "...An assumed-size
array name shall not be written as a whole array reference
except as an actual argument in a procedure reference for which
the shape is not required."

-- 
           Summary: Invalid usage of assumed-size arrays is not rejected
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: lei at il dot ibm dot com
                CC: gcc-bugs at gcc dot gnu dot org


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

[Bug fortran/16400] Invalid usage of assumed-size arrays is not rejected

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |accepts-invalid


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

[Bug fortran/16400] Invalid usage of assumed-size arrays is not rejected

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-07-07 15:54 -------
Confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-07-07 15:54:27
               date|                            |


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

[Bug fortran/16400] Invalid usage of assumed-size arrays is not rejected

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2004-07-11 14:58 -------
The Fortran 95 (draft) standard continues that sentence "or in a reference to
the intrinsic function LBOUND." (p 56, line 26). Is that not in the F2K standard?

-- 


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

[Bug fortran/16400] Invalid usage of assumed-size arrays is not rejected

[lei at il dot ibm dot com]

------- Additional Comments From lei at il dot ibm dot com  2004-07-12 06:55 -------
(In reply to comment #2)
> The Fortran 95 (draft) standard continues that sentence "or in a reference to
> the intrinsic function LBOUND." (p 56, line 26). Is that not in the F2K standard?

My understanding is that LBOUND is just an example of a function that is
always allowed for assumed-size arrays.  UBOUND is allowed except for the
last dimension.  SIZE and SHAPE are not allowed because assumed-size arrays
have no upper bound in last dimension.

-- 


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

[Bug fortran/16400] Invalid usage of assumed-size arrays is not rejected

[cvs-commit at gcc dot gnu dot org]

------- Additional Comments From cvs-commit at gcc dot gnu dot org  2004-09-01 21:07 -------
Subject: Bug 16400

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	tobi@gcc.gnu.org	2004-09-01 21:07:39

Modified files:
	gcc/fortran    : ChangeLog resolve.c 
	gcc/testsuite  : ChangeLog 
	gcc/testsuite/gfortran.dg: der_io_1.f90 

Log message:
	fortran/
	PR fortran/16400
	PR fortran/16404
	(port from g95)
	* resolve.c (resolve_transfer): New function.
	(resolve_code): Call resolve_transfer in case of EXEC_TRANSFER.
	
	testsuite/
	PR fortran/16404
	* gfortran.dg/der_io_1.f90: XFAIL illegal testcase.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.195&r2=1.196
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/resolve.c.diff?cvsroot=gcc&r1=1.16&r2=1.17
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.4228&r2=1.4229
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/der_io_1.f90.diff?cvsroot=gcc&r1=1.2&r2=1.3



-- 


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

[Bug fortran/16400] Invalid usage of assumed-size arrays is not rejected

[tobi at gcc dot gnu dot org]

------- Additional Comments From tobi at gcc dot gnu dot org  2004-09-01 21:08 -------
Fixed.

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


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

[Bug fortran/16400] Invalid usage of assumed-size arrays is not rejected

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |3.5.0


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