From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 1480 invoked by alias); 31 Aug 2009 19:08:37 -0000 Received: (qmail 1449 invoked by alias); 31 Aug 2009 19:08:24 -0000 Date: Mon, 31 Aug 2009 19:08:00 -0000 Message-ID: <20090831190824.1448.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/40940] [F03] CLASS statement In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "janus at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2009-08/txt/msg02393.txt.bz2 ------- Comment #5 from janus at gcc dot gnu dot org 2009-08-31 19:08 ------- Subject: Bug 40940 Author: janus Date: Mon Aug 31 19:08:03 2009 New Revision: 151244 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=151244 Log: 2009-08-31 Janus Weil Paul Thomas PR fortran/40940 * array.c (gfc_match_array_constructor): Rename gfc_match_type_spec. * decl.c (gfc_match_type_spec): Rename to gfc_match_decl_type_spec, and reject CLASS with -std=f95. (gfc_match_implicit, gfc_match_data_decl,gfc_match_prefix, match_procedure_interface): Rename gfc_match_type_spec. * gfortran.h (gfc_type_compatible): Add prototype. * match.h (gfc_match_type_spec): Rename to gfc_match_decl_type_spec. * match.c (match_intrinsic_typespec): Rename to match_type_spec, and add handling of derived types. (gfc_match_allocate): Rename match_intrinsic_typespec and check type compatibility of derived types. * symbol.c (gfc_type_compatible): New function to check if two types are compatible. 2009-08-31 Janus Weil PR fortran/40940 * gfortran.dg/allocate_derived_1.f90: New. * gfortran.dg/class_3.f03: New. Added: trunk/gcc/testsuite/gfortran.dg/allocate_derived_1.f90 trunk/gcc/testsuite/gfortran.dg/class_3.f03 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/array.c trunk/gcc/fortran/decl.c trunk/gcc/fortran/gfortran.h trunk/gcc/fortran/match.c trunk/gcc/fortran/match.h trunk/gcc/fortran/symbol.c trunk/gcc/testsuite/ChangeLog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40940