Run-time segmentation fault when attempting to print huge(x) with F0.1 format
even when x was default real, let alone kind 8 or 10. Evidence:
[EMAIL PROTECTED] test system: ~/Jfh/Test 52 >cat testf0fmt.f90
! printing big numbers in F0.1 format. HP = high precision
INTEGER,PARAMETER:: &
DP=kind(1d0),QP=selected_real_kind(precision(1._DP) + 2), &
HP=( sign(1,QP)*(QP-DP) + (QP+DP) )/2
CHARACTER,PARAMETER:: &
efmt*(*)='(1X,A,ES13.4E4,:,/,A,I0,A,ES13.4E4)', &
ffmt*(*)='(1X,A,F0.1)'
IF(HP==DP)PRINT*, 'Double precision is the highest available:-('
PRINT efmt,'huge(1.0) in ES format is ',huge(1.0),&
' kind = ',kind(1.0),' epsilon = ',epsilon(1.0)
PRINT efmt,'huge(1d0) in ES format is ',huge(1d0),&
' kind = ',kind(1d0),' epsilon = ',epsilon(1d0)
IF(HP/=DP)PRINT efmt,'huge(1._HP)in ES format is ',huge(1._HP),&
' kind = ',kind(1._HP),' epsilon = ',epsilon(1._HP)
PRINT ffmt,'huge(1.0) in F0.1 fmt is ',huge(1.0)
PRINT ffmt,'huge(1d0) in F0.1 fmt is ',huge(1d0)
IF(HP/=DP)PRINT ffmt,'huge(1._HP) in F0.1 fmt is ',huge(1._HP)
END
[EMAIL PROTECTED] test system: ~/Jfh/Test 53 >gfortran -v testf0fmt.f90
Driving: gfortran -v testf0fmt.f90 -lgfortranbegin -lgfortran -lm
-shared-libgcc
Using built-in specs.
Target: i386-redhat-linux
Configured with: ../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,obj-c++,java,fortran,ada --enable-java-awt=gtk
--disable-dssi --enable-plugin
--with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre --with-cpu=generic
--host=i386-redhat-linux
Thread model: posix
gcc version 4.1.1 20070105 (Red Hat 4.1.1-52)
/usr/libexec/gcc/i386-redhat-linux/4.1.1/f951 testf0fmt.f90 -quiet -dumpbase
testf0fmt.f90 -mtune=generic -auxbase testf0fmt -version -I
/usr/lib/gcc/i386-redhat-linux/4.1.1/finclude -o /tmp/ccrsfBwd.s
GNU F95 version 4.1.1 20070105 (Red Hat 4.1.1-52) (i386-redhat-linux)
compiled by GNU C version 4.1.1 20070105 (Red Hat 4.1.1-52).
GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
as -V -Qy -o /tmp/ccmjsW1i.o /tmp/ccrsfBwd.s
GNU assembler version 2.17.50.0.6-2.el5 (i386-redhat-linux) using BFD version
2.17.50.0.6-2.el5 20061020
/usr/libexec/gcc/i386-redhat-linux/4.1.1/collect2 --eh-frame-hdr -m elf_i386
--hash-style=gnu -dynamic-linker /lib/ld-linux.so.2
/usr/lib/gcc/i386-redhat-linux/4.1.1/../../../crt1.o
/usr/lib/gcc/i386-redhat-linux/4.1.1/../../../crti.o
/usr/lib/gcc/i386-redhat-linux/4.1.1/crtbegin.o
-L/usr/lib/gcc/i386-redhat-linux/4.1.1 -L/usr/lib/gcc/i386-redhat-linux/4.1.1
-L/usr/lib/gcc/i386-redhat-linux/4.1.1/../../.. /tmp/ccmjsW1i.o -lgfortranbegin
-lgfortran -lm -lgcc_s -lgcc -lc -lgcc_s -lgcc
/usr/lib/gcc/i386-redhat-linux/4.1.1/crtend.o
/usr/lib/gcc/i386-redhat-linux/4.1.1/../../../crtn.o
[EMAIL PROTECTED] test system: ~/Jfh/Test 54 >./a.out
huge(1.0) in ES format is 3.4028E+0038
kind = 4 epsilon = 1.1921E-0007
huge(1d0) in ES format is 1.7977E+0308
kind = 8 epsilon = 2.2204E-0016
huge(1._HP)in ES format is 1.1897E+4932
kind = 10 epsilon = 1.0842E-0019
Segmentation fault
[EMAIL PROTECTED] test system: ~/Jfh/Test 55 >
--
Summary: F0.n output format fails with large numbers
Product: gcc
Version: 4.1.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: john dot harper at vuw dot ac dot nz
GCC build triplet: ?
GCC host triplet: ?
GCC target triplet: i386-redhat-linux
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32446
