This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
ICE using norm2 in quadruple-precision
- From: Jorge D'ELIA <jdelia at intec dot unl dot edu dot ar>
- To: Gfortran List <fortran at gcc dot gnu dot org>
- Date: Thu, 20 Sep 2012 15:15:57 -0300 (ART)
- Subject: ICE using norm2 in quadruple-precision
Hi all,
I have an ICE using norm2 in quadruple-precision
and 4.8.0 20120722 (experimental) version, with either
$ lsb_release -a
LSB Version: :core-4.0-ia32:core-4.0-noarch
Distributor ID: Fedora
Description: Fedora release 14 (Laughlin)
Release: 14
Codename: Laughlin
$ gfortran-beta --version
GNU Fortran (GCC) 4.8.0 20120722 (experimental)
Copyright (C) 2012 Free Software Foundation, Inc.
$ gfortran-beta -o test79.exe test79.f90
test79.f90: In function 'test':
test79.f90:33:0: internal compiler error: Segmentation fault
z = norm2 (d)
^
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
or
$ lsb_release -a
LSB Version: :core-3.1-amd64:core-3.1-noarch:graphics-3.1-amd64:graphics-3.1-noarch
Distributor ID: Fedora
Description: Fedora release 9 (Sulphur)
Release: 9
Codename: Sulphur
$ gfortran-beta --version
GNU Fortran (GCC) 4.8.0 20120727 (experimental) [trunk revision 189904]
Copyright (C) 2012 Free Software Foundation, Inc.
$ gfortran-beta -std=f2008 -o test79.exe test79.f90
test79.f90: In function 'test':
test79.f90:33:0: internal compiler error: Segmentation fault
z = norm2 (d)
^
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.
where
$cat test79.f90
program test79
use ISO_FORTRAN_ENV
implicit none
integer, parameter :: iin = kind (1)
integer, parameter :: isp = REAL_KINDS (1)
integer, parameter :: idp = REAL_KINDS (2)
integer, parameter :: iep = REAL_KINDS (3)
integer, parameter :: iqp = REAL_KINDS (4)
!
integer (iin), parameter :: n = 10
!
real (isp), dimension (n) :: a
real (idp), dimension (n) :: b
real (iep), dimension (n) :: c
real (iqp), dimension (n) :: d
!
real (isp) :: w
real (idp) :: x
real (iep) :: y
real (iqp) :: z
!
a = 1.0_isp
w = norm2 (a) !ok
!
b = 1.0_idp
x = norm2 (b) !ok
!
c = 1.0_iep
y = norm2 (c) !ok
!
d = 1.0_iqp
z = norm2 (d) !ICE
!
end program test79
Regards
Jorge.
--