blob: 6af64ca606ad898468363ad6b25d83ba2a33dbbe [file] [log] [blame]
!PR fortran/32238
! { dg-do compile }
module bug_test
contains
subroutine bug(c)
implicit none
integer, parameter :: fp = selected_real_kind(13)
complex(kind=fp) :: c(:,:)
where( abs( aimag( c ) ) < 1.e-10_fp ) &
& c = cmplx( real( c , fp ) , 0._fp , fp )
where( abs( real( c , fp ) ) < 1.e-10_fp ) &
& c = cmplx( 0._fp , aimag( c ) , fp )
return
end subroutine bug
end module bug_test