------- Comment #3 from burnus at gcc dot gnu dot org  2008-02-09 22:02 -------
> How is this a regression? ISO_C_BINDING is new for 4.3.0 :).

Well, it is not a regression versus 4.2, but it is nonetheless a regression: It
was working before. How are such regressions marked?

 * * *

Simplified test case:

  USE ISO_C_BINDING
  TYPE(C_PTR), TARGET, SAVE :: argv
  INTERFACE
    SUBROUTINE glutInit_gl(argv) BIND(C)
      import
      TYPE(C_PTR) :: argv
    END SUBROUTINE glutInit_gl
  END INTERFACE
  CALL glutInit_gl(C_LOC(argv))
END


Dumped tree:

MAIN__ ()
{
  static void * argv;
  static integer(kind=4) options.0[7] = {68, 127, 0, 0, 0, 1, 0};

  _gfortran_set_options (7, (void *) &options.0);
  {
    static void * * C.906 = &argv;

    glutinit_gl (&C.906);
  }
}


-- 


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

Reply via email to