blob: 2c88b356561414e59a6ed4886761958026ef9662 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
!PR fortran/32238
! { dg-do compile }
! { dg-final { cleanup-modules "bug_test" } }
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
|
