gcc/testsuite/gfortran.dg/pr39666-1.f90

   1 ! PR middle-end/39666
   2 ! { dg-do compile }
   3 ! { dg-options "-O2 -Wuninitialized" }
   4
   5 FUNCTION f(n)
   6   INTEGER, INTENT(in) :: n
   7   REAL                :: f
   8
   9   SELECT CASE (n)
  10     CASE (:-1); f = -1.0
  11     CASE (0);   f =  0.0
  12     CASE (1:);  f =  1.0
  13   END SELECT
  14 END FUNCTION