gfortran crashes if one uses cptr = C_PTR(p+1)
Here, C_PTR is a structure constructor; this usage is invalid Fortran 2003 (as type(C_PTR) has PRIVATE components according to the Fortran 2003 standard); NAG f95 therefore diagnoses: Error: Components of structure constructor 'c_ptr' at (1) are PRIVATE gfortran allows currently to access the private components to allow to print the pointer address as in print *, cptr (For -std=f2003, this gives the expected error because of the private components. However, for C_PTR(..) -std=f2003 does not help.) Valgrind: ==15961== Invalid read of size 8 ==15961== at 0x49F466: gfc_conv_expr (trans-expr.c:3316) ==15961== by 0x49FB9C: gfc_trans_assignment_1 (trans-expr.c:4075) ==15961== by 0x49FDAC: gfc_trans_assignment (trans-expr.c:4222) ==15961== by 0x482E67: gfc_trans_code (trans.c:993) ==15961== by 0x498669: gfc_generate_function_code (trans-decl.c:3307) ==15961== by 0x45462B: gfc_parse_file (parse.c:3384) Test program, found at http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/0ea1d42c43b6d54a/ program main use ISO_C_BINDING implicit none integer(C_INTPTR_T) p type(C_PTR) cptr p = 0 cptr = C_PTR(p+1) end program main -- Summary: Bind(C): Using C_PTR as structure constructor gives an ICE Product: gcc Version: 4.3.0 Status: UNCONFIRMED Keywords: ice-on-invalid-code Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: burnus at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33760
