[Bug fortran/35150] New: [4.3 Regression] ICE in expand_expr_addr_expr_1, at expr.c:6728

["burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Working: 2007-07-16-r126671
Failing: 2007-07-19-r126744

Compiling F03GL (http://www-stone.ch.cam.ac.uk/pub/f03gl/,
http://www-stone.ch.cam.ac.uk/pub/f03gl/f03gl.zip) gives the ICE:

gfortran  -fno-range-check -DNAGF95 -DOPENGL -c OpenGL_glut.f90
[...]
OpenGL_glut.f90: In function 'glutinit_f03':
OpenGL_glut.f90:1518: internal compiler error: in expand_expr_addr_expr_1, at
expr.c:6835


Test case:

MODULE OpenGL_glut
  USE, INTRINSIC :: ISO_C_BINDING
  IMPLICIT NONE
CONTAINS
  SUBROUTINE glutInit_gl(pargc, argv) BIND(C,NAME="glutInit")
    INTEGER(C_INT) :: pargc
    TYPE(C_PTR), INTENT(IN) :: argv
  END SUBROUTINE glutInit_gl
  SUBROUTINE glutInit_f03()
    INTEGER(C_INT) :: argcp=1
    TYPE(C_PTR), DIMENSION(1), TARGET :: argv=C_NULL_PTR
    CHARACTER(C_CHAR), DIMENSION(1), TARGET :: empty_string=C_NULL_CHAR
    CALL glutInit_gl(argcp, C_LOC(argv))
  END SUBROUTINE
END MODULE OpenGL_glut


-- 
           Summary: [4.3 Regression] ICE in expand_expr_addr_expr_1, at
                    expr.c:6728
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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