The following test fails:

$ cat test.f90
PROGRAM Test
  IMPLICIT NONE
  INTEGER, PARAMETER :: DP=8
  REAL(KIND=DP), DIMENSION(1:3) :: A
  A = ANINT ( A , DP )
END PROGRAM Test

$ gfortran -c test.f90
test.f90: In function 'MAIN__':
test.f90:1: internal compiler error: in gfc_trans_assignment_1, at
fortran/trans-expr.c:4052
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

$ gfortran -v
Using built-in specs.
Target: i386-pc-linux-gnu
Configured with: /home/fx/gfortran_nightbuild/trunk/configure
--prefix=/home/fx/gfortran_nightbuild/irun-20070926
--enable-languages=c,fortran --build=i386-pc-linux-gnu
--enable-checking=release
--with-gmp=/home/fx/gfortran_nightbuild/software
Thread model: posix
gcc version 4.3.0 20070926 (experimental) [trunk revision 128777] (GCC)

It compiles fine if A is a scalar (not an array) or if I don't specify
the "kind" in the ANINT function. AINT fails as well, not so NINT,
FLOOR or CEILING.


-- 
           Summary: ICE with ANINT (with KIND and an array)
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: major
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jellby at yahoo dot com


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33568

Reply via email to