blob: ed7a5f4cd605e2d5c82af1d2b6d3b2d4802b42f5 (
plain)
1
2
3
4
5
6
7
8
|
! { 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
|