From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 32662 invoked by alias); 3 Mar 2007 12:06:16 -0000 Received: (qmail 32611 invoked by uid 48); 3 Mar 2007 12:06:05 -0000 Date: Sat, 03 Mar 2007 12:06:00 -0000 Message-ID: <20070303120605.32610.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/24546] [meta-bug] gfortran debugging problems In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "fxcoudert 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: 2007-03/txt/msg00168.txt.bz2 ------- Comment #7 from fxcoudert at gcc dot gnu dot org 2007-03-03 12:06 ------- Steven Bosscher had made significant progress on this, IIRC. Steven, what's the status of your patches? PS: as a minor improvement, we might want to give numeric types a more Fortran-like name, with a patch such as the following: Index: trans-types.c =================================================================== --- trans-types.c (revision 122038) +++ trans-types.c (working copy) @@ -531,7 +531,7 @@ { type = gfc_build_int_type (&gfc_integer_kinds[index]); gfc_integer_types[index] = type; - snprintf (name_buf, sizeof(name_buf), "int%d", + snprintf (name_buf, sizeof(name_buf), "integer(kind=%d)", gfc_integer_kinds[index].kind); PUSH_TYPE (name_buf, type); } @@ -540,7 +540,7 @@ { type = gfc_build_logical_type (&gfc_logical_kinds[index]); gfc_logical_types[index] = type; - snprintf (name_buf, sizeof(name_buf), "logical%d", + snprintf (name_buf, sizeof(name_buf), "logical(kind=%d)", gfc_logical_kinds[index].kind); PUSH_TYPE (name_buf, type); } @@ -549,13 +549,13 @@ { type = gfc_build_real_type (&gfc_real_kinds[index]); gfc_real_types[index] = type; - snprintf (name_buf, sizeof(name_buf), "real%d", + snprintf (name_buf, sizeof(name_buf), "real(kind=%d)", gfc_real_kinds[index].kind); PUSH_TYPE (name_buf, type); type = gfc_build_complex_type (type); gfc_complex_types[index] = type; - snprintf (name_buf, sizeof(name_buf), "complex%d", + snprintf (name_buf, sizeof(name_buf), "complex(kind=%d)", gfc_real_kinds[index].kind); PUSH_TYPE (name_buf, type); } -- fxcoudert at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |steven at gcc dot gnu dot | |org Last reconfirmed|2006-01-29 19:54:48 |2007-03-03 12:06:04 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24546