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 858

Go to most recent revision | Details | Compare with Previous | View Log


! { 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

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`

Browse

Tools

Subversion Repositories openrisc

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