gcc/testsuite/gfortran.dg/warn_conversion_7.f90 - gcc - Git at Google

 ! { dg-do compile }
 ! { dg-options "-Wconversion-extra -Wconversion" }
 program main
   implicit none
   double precision, parameter :: pi = &  ! { dg-warning "Conversion" }
        & 3.1415829535897932     ! { dg-warning "Non-significant digits" }
 end program main
	! { dg-do compile }
	! { dg-options "-Wconversion-extra -Wconversion" }
	program main
	implicit none
	double precision, parameter :: pi = & ! { dg-warning "Conversion" }
	& 3.1415829535897932 ! { dg-warning "Non-significant digits" }
	end program main