[Bug fortran/30352] New: False error on INTENT(IN) when modifying pointees

[Bug fortran/30352] New: False error on INTENT(IN) when modifying pointees

[anlauf at gmx dot de]

Hi,

the following *legal Fortran 95* code is falsely rejected
by gfortran.  Note that this differs from PR 29624 which
specifies a F2003 feature for pointers.

% cat gfcbug52.f90
program gfcbug52
  implicit none

  type t
     integer, pointer :: p(:) => NULL ()
  end type t

  type(t) :: a

  allocate (a%p(1))
  call set (a)
  print *, a%p(1)

contains

  subroutine set (b)
    type(t), intent(in) :: b
    if (associated (b%p)) b%p(1) = 1
  end subroutine set

end program gfcbug52
% gfc gfcbug52.f90
gfcbug52.f90:18.27:

    if (associated (b%p)) b%p(1) = 1
                          1
Error: Can't assign to INTENT(IN) variable 'b' at (1)


-- 
           Summary: False error on INTENT(IN) when modifying pointees
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at gmx dot de
  GCC host triplet: i686-pc-linux-gnu


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

[Bug fortran/30352] False error on INTENT(IN) when modifying pointees

[anlauf at gmx dot de]

------- Comment #1 from anlauf at gmx dot de  2007-01-08 22:06 -------
(In reply to comment #0)

It appears that the fix to PR 29624 also fixed this one
properly.


-- 


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

[Bug fortran/30352] [4.1, 4.2 only] False error on INTENT(IN) when modifying pointees

[burnus at gcc dot gnu dot org]

------- Comment #2 from burnus at gcc dot gnu dot org  2007-01-08 22:25 -------
> It appears that the fix to PR 29624 also fixed this one properly.
So far I had only managed to cause collateral damage not collateral fixes :-)


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2007-01-08 22:25:46
               date|                            |
            Summary|False error on INTENT(IN)   |[4.1, 4.2 only] False error
                   |when modifying pointees     |on INTENT(IN) when modifying
                   |                            |pointees


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

[Bug fortran/30352] [4.1, 4.2 only] False error on INTENT(IN) when modifying pointees

[pault at gcc dot gnu dot org]

------- Comment #3 from pault at gcc dot gnu dot org  2007-01-14 21:41 -------
This is indeed fixed.

Paul


-- 

pault at gcc dot gnu dot org changed:

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


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