gomp-20050608-branch/gcc/testsuite/gfortran.dg/g77/980310-1.f

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