From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 20966 invoked by alias); 10 Jun 2009 11:34:06 -0000 Received: (qmail 20722 invoked by uid 22791); 10 Jun 2009 11:34:06 -0000 X-SWARE-Spam-Status: No, hits=-1.9 required=5.0 tests=AWL,BAYES_00,SARE_MSGID_LONG40,SPF_PASS X-Spam-Check-By: sourceware.org Received: from yw-out-1718.google.com (HELO yw-out-1718.google.com) (74.125.46.157) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Wed, 10 Jun 2009 11:33:59 +0000 Received: by yw-out-1718.google.com with SMTP id 4so350154ywq.48 for ; Wed, 10 Jun 2009 04:33:56 -0700 (PDT) MIME-Version: 1.0 Received: by 10.90.88.17 with SMTP id l17mr1050193agb.40.1244633636746; Wed, 10 Jun 2009 04:33:56 -0700 (PDT) Date: Wed, 10 Jun 2009 11:34:00 -0000 Message-ID: <1d9315cf0906100433i238c735i63a94973050bfe6e@mail.gmail.com> Subject: display character strings in fortran From: kamaraju kusumanchi To: gdb@sourceware.org Cc: fortran@gcc.gnu.org Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit X-IsSubscribed: yes Mailing-List: contact gdb-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-owner@sourceware.org X-SW-Source: 2009-06/txt/msg00081.txt.bz2 Consider the following code. (This is a reduced version of a large code that I am working with.) $cat char_string.f90 program string_size implicit none character (len=20) :: first_name write(first_name, *) 'kamaraju' write(*,*) first_name end program string_size The program compiles and runs fine. $gfortran -g char_string.f90 $./a.out kamaraju However, when debugged, the character strings are not displayed properly. $gdb ./a.out Using host libthread_db library "/lib/i686/cmov/libthread_db.so.1". (gdb) b char_string.f90:5 Breakpoint 1 at 0x8048620: file char_string.f90, line 5. (gdb) r Starting program: /home/rajulocal/work/fortran/a.out Breakpoint 1, string_size () at char_string.f90:5 5 write(*,*) first_name Current language: auto; currently fortran (gdb) p first_name $1 = (32 ' ', 107 'k', 97 'a', 109 'm', 97 'a', 114 'r', 97 'a', 106 'j', 117 'u', 32 ' ', 32 ' ', 32 ' ', 32 ' ', 32 ' ', 32 ' ', 32 ' ', 32 ' ', 32 ' ', 32 ' ', 32 ' ') (gdb) quit The program is running. Exit anyway? (y or n) y I am using a Debian Etch machine running $gfortran -v Using built-in specs. Target: i486-linux-gnu Configured with: ../src/configure -v --with-pkgversion='Debian 4.3.2-1.1' --with-bugurl=file:///usr/share/doc/gcc-4.3/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.3 --program-suffix=-4.3 --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-mpfr --enable-targets=all --enable-cld --enable-checking=release --build=i486-linux-gnu --host=i486-linux-gnu --target=i486-linux-gnu Thread model: posix gcc version 4.3.2 (Debian 4.3.2-1.1) $gdb -v GNU gdb 6.4.90-debian Copyright (C) 2006 Free Software Foundation, Inc. GDB is free software, covered by the GNU General Public License, and you are welcome to change it and/or distribute copies of it under certain conditions. Type "show copying" to see the conditions. There is absolutely no warranty for GDB. Type "show warranty" for details. This GDB was configured as "i486-linux-gnu". Is this a bug in gdb or gfortran? I appreciate if you could fix it. thanks raju