Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / cpp0x / Wnarrowing18.C
blob0dc7075cd62014b59aaddc087c75ae06aace4e6c
1 // PR c++/94590 - Detect long double -> double narrowing.
2 // { dg-do compile { target c++11 } }
3 // { dg-additional-options "-mlong-double-64" { target x86_64-*-* i?86-*-* } }
5 int
6 main ()
8   using T = long double;
9   extern long double ld;
10   extern T ld2;
11   extern const T ld3;
12   double d{ld}; // { dg-error "narrowing conversion" }
13   double d2{ld2}; // { dg-error "narrowing conversion" }
14   double d3{ld3}; // { dg-error "narrowing conversion" }