Fortran: Fix PR 47485.

[gcc.git] / gcc / testsuite / g++.dg / cpp0x / pr77948-3.C

// PR c++/77948
// { dg-do compile }
// { dg-options "-std=c++11 -std=gnu++98" }

void
foo ()
{
  double qfp = 1.0q; // { dg-error "unsupported" "" { target { ! has_q_floating_suffix } } }
  double Qfp = 1.0Q; // { dg-error "unsupported" "" { target { ! has_q_floating_suffix } } }
}