------- Comment #6 from burnus at gcc dot gnu dot org 2008-02-15 15:24 ------- (In reply to comment #3) > Simplified test case: This now works with FX's patch.
However, using F03GL still fails with: OpenGL_glut.f90: In function glutinit_f03: OpenGL_glut.f90:1518: internal compiler error: in expand_expr_addr_expr_1, at expr.c:6835 For a reduced test case see comment 0. For that test case, one has the dump: glutinit_f03 () { static integer(kind=4) argcp = 1; static void * argv[1] = {0}; { static void *[1] * C.910 = &argv; glutinit_gl (&argcp, &C.910); } } That is, the ELSE branch needs to be fixed as well; the fix was only for rank == 0. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35150