blob: c6fc00bf1bafee0e70cfe8cd5798fa1bf7cc7fbd [file] [log] [blame]
! { dg-do compile }
! { dg-skip-if "NaN not supported" { spu-*-* } }
! PR fortran/37930
program test
implicit none
integer i
i = transfer(-1,1.0) ! { dg-error "Conversion" }
end program test