1! { dg-do compile }
2! { dg-skip-if "NaN not supported" { spu-*-* } }
3! PR fortran/37930
4program test
5  implicit none
6  integer i
7  i = transfer(-1,1.0) ! { dg-error "Conversion" }
8end program test
9