OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [warn_conversion_3.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! { dg-options "-Wconversion -Wconversion-extra" }
3
! PR 47659 - warning about conversions on assignment
4
! Based on a test case by Thomas Henlich
5
program main
6
  double precision d1, d2
7
  complex(8), parameter :: z = cmplx (0.5, 0.5)  ! { dg-warning "Conversion" }
8
  real :: r1, r2
9
  r1 = 2.3d0 ! { dg-warning "Change of value in conversion" }
10
  r2 = 2.5d0 ! No warning because the value does not change
11
  d1 = .13 ! { dg-warning "Conversion" }
12
  d2 = .13d0
13
  d1 = z     ! { dg-warning "change of value in conversion" }
14
end program main

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.