libgfortran: Fix namelist read.
[official-gcc.git] / gcc / testsuite / g++.dg / pr50763-4.C
blob2605d81925bf14e9673cda59bea035e3bd86f658
1 /* { dg-do compile } */
2 /* { dg-options "-O2 -ftree-tail-merge" } */
4 float
5 clamp (const float x)
7   return x <= 1 ? 1 : x;
10 template < class T > struct VECTOR
12   float x;
14 template < class TV > class JOINT
16   virtual void Constrain_Angles (VECTOR < float >&angles) const;
19 template < class TV > class ANGLE_JOINT:public JOINT < TV >
21   virtual ~ ANGLE_JOINT ()
22   {
23   }
24   void Constrain_Angles (VECTOR < float >&angles) const
25   {
26     VECTOR < float >v;
27     if (v.x)
28         v.x = clamp (angles.x);
29     else
30         v.x = angles.x;
31       angles.x = v.x;
32   }
34 template ANGLE_JOINT < int >::~ANGLE_JOINT ();