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 (1:); f = 1.0
13 END SELECT
14END FUNCTION
15