------- 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

Reply via email to