Utilisation des specs internes.
Target: i386-redhat-linux
Configuré avec: ../configure --prefix=/usr --mandir=/usr/share/man
--infodir=/usr/share/info --enable-shared --enable-threads=posix
--enable-checking=release --with-system-zlib --enable-__cxa_atexit
--disable-libunwind-exceptions --enable-libgcj-multifile
--enable-languages=c,c++,objc,java,f95,ada --enable-java-awt=gtk
--with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre
--host=i386-redhat-linux
Modèle de thread: posix
version gcc 4.0.1 20050727 (Red Hat 4.0.1-5)
/usr/libexec/gcc/i386-redhat-linux/4.0.1/f951 bug.f90 -quiet -dumpbase bug.f90
-auxbase bug -version -o bug.s
GNU F95 version 4.0.1 20050727 (Red Hat 4.0.1-5) (i386-redhat-linux)
compiled by GNU C version 4.0.1 20050727 (Red Hat 4.0.1-5).
heuristiques GGC: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
bug.f90: In function s_to_c:
bug.f90:21: erreur interne du compilateur: dans gfc_finish_var_decl, à
fortran/trans-decl.c:436
Veuillez soumettre un rapport complet d'anomalies,
avec le source pré-traité si nécessaire.
Consultez <URL:http://bugzilla.redhat.com/bugzilla> pour plus de détail.
MODULE type_structs
IMPLICIT NONE
TYPE, PUBLIC :: une_classe
INTEGER :: ident
END TYPE une_classe
END MODULE type_structs
MODULE stat_structs
USE type_structs
IMPLICIT NONE
PRIVATE
TYPE(une_classe), DIMENSION(12), PUBLIC :: c12
END MODULE stat_structs
MODULE zclassif
USE type_structs
CONTAINS
SUBROUTINE nuees()
USE stat_structs
INTEGER :: nb_cls, ii
TYPE(une_classe), DIMENSION(:), ALLOCATABLE :: xclasses
ALLOCATE(xclasses(nb_cls))
DO ii = 1, 12
xclasses(ii) = c12(ii)
END DO
END SUBROUTINE nuees
END MODULE zclassif
--
Summary: private structured type assignment
Product: gcc
Version: 4.0.1
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: r dot butel at epoc dot u-bordeaux1 dot fr
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24504
