Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/warn_conversion_6.f90 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
children
line wrap: on
line source

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