Subversion Repositories openrisc_2011-10-31

c { dg-do compile }

c { dg-do compile }

C Causes internal compiler error on egcs 1.0.1 on i586-pc-sco3.2v5.0.4

C Causes internal compiler error on egcs 1.0.1 on i586-pc-sco3.2v5.0.4

C To: egcs-bugs@cygnus.com

C To: egcs-bugs@cygnus.com

C Subject: backend case range problem/fix

C Subject: backend case range problem/fix

C From: Dave Love <d.love@dl.ac.uk>

C From: Dave Love <d.love@dl.ac.uk>

C Date: 02 Dec 1997 18:11:35 +0000

C Date: 02 Dec 1997 18:11:35 +0000

C Message-ID: <rzqpvnfboo8.fsf@djlvig.dl.ac.uk>

C Message-ID: <rzqpvnfboo8.fsf@djlvig.dl.ac.uk>

C 

C 

C The following Fortran test case aborts the compiler because

C The following Fortran test case aborts the compiler because

C tree_int_cst_lt dereferences a null tree; this is a regression from

C tree_int_cst_lt dereferences a null tree; this is a regression from

C gcc 2.7.

C gcc 2.7.

      INTEGER N

      INTEGER N

      READ(*,*) N

      READ(*,*) N

      SELECT CASE (N)

      SELECT CASE (N)

        CASE (1:)

        CASE (1:)

           WRITE(*,*) 'case 1'

           WRITE(*,*) 'case 1'

        CASE (0)

        CASE (0)

           WRITE(*,*) 'case 0'

           WRITE(*,*) 'case 0'

      END SELECT

      END SELECT

      END

      END

C The relevant change to cure this is:

C The relevant change to cure this is:

C

C

C Thu Dec  4 06:34:40 1997  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>

C Thu Dec  4 06:34:40 1997  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>

C

C

C       * stmt.c (pushcase_range): Clean up handling of "infinite" values.

C       * stmt.c (pushcase_range): Clean up handling of "infinite" values.

C

C