[Bug fortran/36275] Binding label can be any scalar char initialisation expression

[burnus at gcc dot gnu dot org]

------- Comment #2 from burnus at gcc dot gnu dot org  2008-05-20 16:51 -------
The other problem mentioned in the thread is the following bogus warning:


   procedure(stub), bind(C,name='cacosf') :: my_ACOS ! Compiles
                                                   1
Warning: Variable 'my_acos' at (1) may not be a C interoperable kind but it is
bind(c)


I think it appeared after 2008-05-01-Rev134843 and should be related to one of
the procedure patches. Test case:


 module trig_sp
   use ISO_C_BINDING
   integer, parameter :: rkind = C_FLOAT
   integer, parameter :: ckind = C_FLOAT_COMPLEX
   abstract interface
      function stub(z) bind(C)
         import rkind, ckind
         complex(ckind), value :: z
         complex(ckind) stub
      end function stub
   end interface
   procedure(stub), bind(C,name='cacosf') :: my_ACOS ! Compiles
end module trig_sp


-- 


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