[Bug fortran/15972] New: ICE : assertion failure in trans-array.c (pointer function stuff)

["Mart dot Rentmeester at nn-online dot org" <gcc-bugzilla at gcc dot gnu dot org>]

gfortran -v -c n18.f95
Reading specs from /OPT/32/gcc-2004-06-09/lib/gcc/hppa2.0w-hp-hpux11.11/3.5.
0/specs
Configured with: ../configure --enable-languages=c,f95 
--prefix=/opt32/gcc-2004-06-09 --with-gmp=/opt32/gmp --with-gnu-as 
--with-as=/opt32/binutils/bin/as --enable-threads --disable-shared --disable-nls
Thread model: posix
gcc version 3.5.0 20040611 (experimental)
 /OPT/32/gcc-2004-06-09/libexec/gcc/hppa2.0w-hp-hpux11.11/3.5.0/f951 n18.f95 
-quiet -dumpbase n18.f95 -auxbase n18 -version -o /var/tmp//ccSC0SfJ.s
GNU F95 version 3.5.0 20040611 (experimental) (hppa2.0w-hp-hpux11.11)
        compiled by GNU C version 3.5.0 20040611 (experimental).
GGC heuristics: --param ggc-min-expand=30 --param ggc-min-heapsize=4096


Assertion failed: GFC_ARRAY_TYPE_P (type), file ../../gcc/fortran/trans-array.c, 
line 3025
n18.f95: In function `get_a_contents':
n18.f95:16: internal compiler error: Aborted







module test

    implicit none


    type b
        character         :: m = ' '
    end type b

    type a
        type(b), pointer  :: contents(:) => null()
    end type a

contains

    function get_a_contents(p) 
    
    implicit none
    type(a), intent(in)  :: p
    type(b), pointer     :: get_a_contents(:)
    
    get_a_contents => p%contents

    end function get_a_contents

end module test

-- 
           Summary: ICE : assertion failure in trans-array.c (pointer
                    function stuff)
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Mart dot Rentmeester at nn-online dot org
                CC: gcc-bugs at gcc dot gnu dot org


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