Hi,

the following code snippet does not compile:

program gfcbug20
  implicit none

  type :: a_t                       
     character, pointer :: line
!     character (len=1), pointer :: line
  end type a_t

  type (a_t) :: a = a_t ( NULL() )

  character, target :: b
!  character (len=1), target :: b

  a% line => b

end program gfcbug20


I get:

gfcbug20.f90: In function 'MAIN__':
gfcbug20.f90:14: internal compiler error: in gfc_conv_string_parameter, at fortr
an/trans-expr.c:1982

Replacing the character variable in the derived type (as well as
the target) by an integer "solves" the problem.

Cheers,
-ha

-- 
           Summary: gfortran: ICE in gfc_conv_string_parameter, trans-
                    expr.c:1982
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: anlauf at hep dot tu-darmstadt dot de
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: i686-pc-linux-gnu


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

Reply via email to