[Fortran-Experiments] Bind(c) and kind

[Tobias Burnus]

Hi,

currently, gfortran checks whether the kind matches:

real(c_int) :: j
         1
Error: C kind param 'c_int' at (1) not valid for REAL


This, however, does not work reliably:

REAL(GLfloat), PARAMETER :: GL_PASS_THROUGH_TOKEN    =
transfer(1792,1.0) ! 0x0
           1
Error: C kind param 'glfloat' at (1) not valid for REAL

Using
  INTEGER, PARAMETER :: GLfloat=C_FLOAT

This needs to be either fixed or one should get rid of the test. Opinions?

Tobias

PS: Tested using http://www-stone.ch.cam.ac.uk/pub/f03gl/