| ! { dg-do compile } |
| ! { dg-options "-Wconversion -Wconversion-extra" } |
| ! PR 47359 - additional warnings for conversions. |
| program main |
| implicit none |
| real(kind=8) :: a,b |
| complex(kind=8) :: c |
| integer :: i |
| real(kind=4) :: r |
| a = 0.13 ! { dg-warning "Conversion" } |
| print *,0.1_8 ** 0.2 ! { dg-warning "Conversion" } |
| b = a/0.13 ! { dg-warning "Conversion" } |
| i = 12345. ! { dg-warning "Conversion" } |
| i = (1., 23.) ! { dg-warning "Non-zero imaginary part" } |
| r = (1., 23.) ! { dg-warning "Non-zero imaginary part" } |
| b = 0.& ! { dg-warning "Possible change of value" } |
| &5_8*c ! { dg-warning "Conversion" } |
| c = 0.3 ! { dg-warning "Conversion" } |
| a = 0.5 ! { dg-warning "Conversion" } |
| end program main |
| |