1! { dg-do compile }
2! { dg-options "-Wconversion-extra -Wconversion" }
3program main
4 implicit none
5 double precision, parameter :: pi = & ! { dg-warning "Conversion" }
6 & 3.1415829535897932 ! { dg-warning "Non-significant digits" }
7end program main
8