1! { dg-do compile }
2! PR fortran/31639 -- ICE on invalid initialization expression
3
4function f()
5  integer :: i = irand()     ! { dg-error "not permitted in an initialization expression" }
6  f = i
7end function
8