gcc/testsuite/g77.f-torture/compile/980310-1.f

   1 C Causes internal compiler error on egcs 1.0.1 on i586-pc-sco3.2v5.0.4
   2 C To: egcs-bugs@cygnus.com
   3 C Subject: backend case range problem/fix
   4 C From: Dave Love <d.love@dl.ac.uk>
   5 C Date: 02 Dec 1997 18:11:35 +0000
   6 C Message-ID: <rzqpvnfboo8.fsf@djlvig.dl.ac.uk>
   7 C
   8 C The following Fortran test case aborts the compiler because
   9 C tree_int_cst_lt dereferences a null tree; this is a regression from
  10 C gcc 2.7.
  11
  12       INTEGER N
  13       READ(*,*) N
  14       SELECT CASE (N)
  15         CASE (1:)
  16            WRITE(*,*) 'case 1'
  17         CASE (0)
  18            WRITE(*,*) 'case 0'
  19       END SELECT
  20       END
  21
  22 C The relevant change to cure this is:
  23 C
  24 C Thu Dec  4 06:34:40 1997  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
  25 C
  26 C       * stmt.c (pushcase_range): Clean up handling of "infinite" values.
  27 C
  28