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