[Bug fortran/33020] Bind(C): c_f_pointer: type/rank mismatch error with integer(8) SHAPE

[burnus at gcc dot gnu dot org]

------- Comment #1 from burnus at gcc dot gnu dot org  2007-08-08 14:23 -------
Some further testing shows:

NAG f95 always wants to have a default kind for SHAPE in c_f_pointer
though the standard allows all kinds.

If I change integer(fgsl_size_t) (fgsl_size_t = c_site_t = 8) into integer(4),
the program works with gfortran while integer(8) shows the type/rank mismatch.

Why it works if I create a minimal test case, but not in the full-blown
program, I do not understand.


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
            Summary|Bind(C): c_f_pointer: Bogus?|Bind(C): c_f_pointer:
                   |type/rank mismatch error    |type/rank mismatch error
                   |                            |with integer(8) SHAPE


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