1! PR middle-end/39666
2! { dg-do compile }
3! { dg-options "-O2 -Wuninitialized" }
4
5FUNCTION 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 (2:);  f =  1.0
13  END SELECT
14END FUNCTION	! { dg-warning "may be used uninitialized" }
15