Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-Wconversion -Wconversion-extra" }

! PR 47659 - warning about conversions on assignment

! Based on a test case by Thomas Henlich

program main

  double precision d1, d2

  complex(8), parameter :: z = cmplx (0.5, 0.5)  ! { dg-warning "Conversion" }

  real :: r1, r2

  r1 = 2.3d0 ! { dg-warning "Change of value in conversion" }

  r2 = 2.5d0 ! No warning because the value does not change

  d1 = .13 ! { dg-warning "Conversion" }

  d2 = .13d0

  d1 = z     ! { dg-warning "change of value in conversion" }

end program main