public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/34640]  New: ICE with c_f_pointer
@ 2008-01-02 16:01 francois dot jacq at irsn dot fr
  2008-01-03  9:42 ` [Bug fortran/34640] ICE when assigning item of a derived-component to a pointer burnus at gcc dot gnu dot org
                   ` (13 more replies)
  0 siblings, 14 replies; 24+ messages in thread
From: francois dot jacq at irsn dot fr @ 2008-01-02 16:01 UTC (permalink / raw)
  To: gcc-bugs

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1461 bytes --]

Compilation of the following test program :

[lcoul@b04p0004 test]$ gfortran -c test5.f90
test5.f90: In function ‘get_values’:
test5.f90:30: internal compiler error: Erreur de segmentation
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

MODULE test

  USE iso_c_binding
  IMPLICIT NONE

  PRIVATE
  PUBLIC get_values

  TYPE,BIND(C) :: my_type
    INTEGER(C_INT) :: name
    INTEGER(C_INT) :: value
  END TYPE

  INTERFACE
    SUBROUTINE get_from_c(n,p) BIND(C,name="get_from_c")
      USE iso_c_binding
      INTEGER(C_INT),INTENT(out) :: n
      TYPE(C_PTR),INTENT(out) :: p
    END
  END INTERFACE

  CONTAINS

  SUBROUTINE get_values(values)
    INTEGER,POINTER :: values(:)
    TYPE(C_PTR) :: p
    INTEGER :: n
    TYPE(my_type),POINTER :: d(:)
    CALL get_from_c(n,p)
    CALL C_F_POINTER(p,d,(/n/))
    values => d(:)%value
  END SUBROUTINE

END MODULE


-- 
           Summary: ICE with c_f_pointer
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: francois dot jacq at irsn dot fr
 GCC build triplet: 20080102 (experimental) [trunk revision 131253]
  GCC host triplet: i686-pc-linux-gnu
GCC target triplet: GNU Fortran (GCC) 4.3.0


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


^ permalink raw reply	[flat|nested] 24+ messages in thread
end of thread, other threads:[~2014-06-08 15:36 UTC | newest]

Thread overview: 24+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
     [not found] <bug-34640-4@http.gcc.gnu.org/bugzilla/>
2010-11-25 20:44 ` [Bug fortran/34640] ICE when assigning item of a derived-component to a pointer jvdelisle at gcc dot gnu.org
2010-11-25 21:15 ` jvdelisle at gcc dot gnu.org
2010-12-28 22:31 ` dfranke at gcc dot gnu.org
2011-05-31 14:14 ` otte.martin at epa dot gov
2011-05-31 14:35 ` otte.martin at epa dot gov
2013-03-29  8:40 ` Joost.VandeVondele at mat dot ethz.ch
2013-03-29 10:31 ` Joost.VandeVondele at mat dot ethz.ch
2013-06-30 15:55 ` dominiq at lps dot ens.fr
2014-06-08 15:11 ` fxcoudert at gcc dot gnu.org
2014-06-08 15:36 ` fxcoudert at gcc dot gnu.org
2008-01-02 16:01 [Bug fortran/34640] New: ICE with c_f_pointer francois dot jacq at irsn dot fr
2008-01-03  9:42 ` [Bug fortran/34640] ICE when assigning item of a derived-component to a pointer burnus at gcc dot gnu dot org
2008-01-03 15:38 ` pault at gcc dot gnu dot org
2008-01-03 18:08 ` pault at gcc dot gnu dot org
2008-03-14 13:25 ` pault at gcc dot gnu dot org
2008-10-05 20:27 ` pault at gcc dot gnu dot org
2008-11-06  6:26 ` pault at gcc dot gnu dot org
2008-11-06  6:27 ` pault at gcc dot gnu dot org
2008-12-11 16:14 ` burnus at gcc dot gnu dot org
2009-04-06 10:57 ` pault at gcc dot gnu dot org
2010-04-27 19:48 ` dfranke at gcc dot gnu dot org
2010-04-27 20:08 ` dominiq at lps dot ens dot fr
2010-05-18 22:22 ` dfranke at gcc dot gnu dot org
2010-05-18 22:28 ` dfranke at gcc dot gnu dot org
2010-05-18 22:30 ` dfranke at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).