Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / dfp / 44473-2.C
blob60fc1ebca9c5d76b5f2f6b4c9e037108c31f286f
1 // { dg-do compile }
3 // Mangling of classes from std::decimal are special-cased.
5 namespace std {
6   namespace decimal {
7     class decimal64 {
8       public:
9         typedef float __decfloat64 __attribute__ ((mode (DD)));
10         explicit decimal64 (int __r):__val (__r) {}
11       private:
12         __decfloat64 __val;
13     };
14   }
17 int bar (const std::decimal::decimal64 & x) { return 0; }
19 int foo ()
21   std::decimal::decimal64 x(0);
22   return bar (x);
25 // { dg-final { scan-assembler "_Z3barRKDd:" } }