This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[gfortran] ping patch PR fortran/19362
- From: FranÃois-Xavier Coudert <Francois-Xavier dot Coudert at lcp dot u-psud dot fr>
- To: gfortran <fortran at gcc dot gnu dot org>, patch <gcc-patches at gcc dot gnu dot org>
- Date: Wed, 11 May 2005 10:46:10 +0200
- Subject: [gfortran] ping patch PR fortran/19362
- Organization: Laboratoire de Chimie Physique
We have a nice patch for PR fortran/19362 that has been waiting for a long
time: http://gcc.gnu.org/ml/gcc-patches/2005-01/msg00761.html
Could someone review it? I propose a testcase to go with it, since the
original patch did not include one.
FX
MODULE M
TYPE T0
SEQUENCE
INTEGER I
END TYPE
END
PROGRAM MAIN
USE M, T1 => T0
TYPE T0
SEQUENCE
INTEGER I
END TYPE
TYPE(T0) :: BAR
TYPE(T1) :: BAZ
BAR%I = 1
BAZ = BAR
IF (BAZ%I /= 1) CALL ABORT
END