This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/33020] Bind(C): c_f_pointer: type/rank mismatch error with integer(8) SHAPE
- From: "burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 8 Aug 2007 14:23:13 -0000
- Subject: [Bug fortran/33020] Bind(C): c_f_pointer: type/rank mismatch error with integer(8) SHAPE
- References: <bug-33020-13404@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla 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