[Bug fortran/33007] New: [4.3 Regression] Revision 127185 causes NINT to ICE

[hjl at lucon dot org]

Revision 127185:

http://gcc.gnu.org/ml/gcc-cvs/2007-08/msg00077.html

causes

[EMAIL PROTECTED] 481.wrf]$ cat foo.f90
SUBROUTINE foo(st_levels_input, num_st_levels_input)
      IMPLICIT NONE
      INTEGER , INTENT(IN) :: num_st_levels_input
      INTEGER , DIMENSION(1:num_st_levels_input) , INTENT(INOUT) ::
st_levels_input
      INTEGER :: lout , lin
      REAL :: temp

      IF ( st_levels_input(lout) .GT. st_levels_input(lin) ) THEN
         temp = st_levels_input(lout)
         st_levels_input(lin) = NINT(temp)
      END IF

END SUBROUTINE foo
[EMAIL PROTECTED] 481.wrf]$ ../127185/usr/bin/gfortran -DSPEC_CPU_LOGICAL_STRICT
-frecord-marker=4 -S foo.f90 -m32 -O
foo.f90: In function âfooâ:
foo.f90:10: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
[EMAIL PROTECTED] 481.wrf]$


-- 
           Summary: [4.3 Regression]  Revision 127185 causes NINT to ICE
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: hjl at lucon dot org
GCC target triplet: i686-pc-linux-gnu


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