[Bug fortran/43985] New: ICE when assumed size cray-pointee passed as argument

[langton at gcc dot gnu dot org]

The recent fix for PR fortran/43331 introduced a regression for programs that
use OpenMP and pass assumed-size cray-pointees as function arguments.  Here is
an example:

         subroutine bob()
         implicit none
         real(8) peted
         pointer (ipeted, peted(*))
         integer(4) sz
!$omp parallel default(shared)

         call pete(peted(sz))

!$omp end parallel
         return
         end subroutine bob


When compiled with svn revision >= 157512, this generates an ICE:

% gfortran -fcray-pointer -fopenmp -c bug1.f90
bug1.f90: In function 'bob':
bug1.f90:9:0: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

My guess is that this is a result of 'peted' have the AS_ASSUMED_SIZE attribute
instead of AS_EXPLICIT in trans-decl.c


-- 
           Summary: ICE when assumed size cray-pointee passed as argument
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: langton at gcc dot gnu dot org
        ReportedBy: langton at gcc dot gnu dot org


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