[Fortran-Experiments]: patch

Christopher D. Rickett crickett@lanl.gov
Tue Mar 6 18:19:00 GMT 2007



>> ! Warning printed twice:
>> ! Variable 'glutcreatemenu' at (1) may not be a C interoperable kind but it 
>> is bind(c)
>> MODULE OpenGL_glut
>> IMPLICIT NONE
>> INTERFACE
>>  FUNCTION glutCreateMenu(func) BIND(C,NAME="glutCreateMenu")
>>    use iso_c_binding
>>    INTEGER :: glutCreateMenu ! <<<< two warnings
>>    INTERFACE
>>      SUBROUTINE func()! <<<<<< no warning
>>      END SUBROUTINE func
>>    END INTERFACE
>>  END FUNCTION glutCreateMenu
>> END INTERFACE
>> END MODULE OpenGL_glut
>> 
>> -----------------
>
> i'll look into why it's being duplicated and why the warning for func is not 
> printed.  should be a simple fix.
>

this should be fixed in my next patch.  the compiler was finding the error 
but was not reporting it.  this now reports an error because func does not 
have the BIND(C) attribute and needs it to be C interoperable and one 
warning for glutCreateMenu.

Chris



More information about the Fortran mailing list