[Bug fortran/52864] New: [4.6/4.7/4.8 Regression] Assignment to pointer component for INTENT(IN) dummy argument

[burnus at gcc dot gnu.org]

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

             Bug #: 52864
           Summary: [4.6/4.7/4.8 Regression] Assignment to pointer
                    component for INTENT(IN) dummy argument
    Classification: Unclassified
           Product: gcc
           Version: 4.8.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org


Reported by Vladimír at
http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/0869abb167bf5680

The following program is rejected since GCC 4.6; it is related to PR 50684 but
not fixed by that patch.

The following program is rejected with:

Error: Dummy argument 'd' with INTENT(IN) in variable definition
       context (assignment) at (1)


     program test
        type PoisFFT_Solver3D
          complex, dimension(:,:,:),&!contiguous,
                          pointer :: work => null()
        end type PoisFFT_Solver3D
     contains
     subroutine PoisFFT_Solver3D_FullPeriodic(D, Phi, RHS)
       type(PoisFFT_Solver3D), intent(in) :: D
       D%work(i,j,k) = 0.0
     end subroutine
     end